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INTRODUCTION 


Over four years ago, when the microcomputer revolution was little 
more than a low rumble, SoftSide , “Your BASIC Software Magazine,” 
published its first issue. In its early days, SoftSide supported only one 
machine, the now-venerable TRS-80® Model I. As the revolution gained 
momentum in the last years of the 1970’s, SoftSide instituted a separate 
version of the magazine for the new Apple II® personal computer. The 
Apple added something novel to the microcomputerist’s world — color! 
What could come next? 

In August of 1980, SoftSide initiated a new format. That issue was the 
first combined magazine for the TRS-80 and Apple with the addition of 
another new personal computer, the Atari® 400/800. SoftSide was now 
providing quality BASIC software for three computers at a price that 
made it a great bargain (and still does). 

SoftSide has always relied on program submissions from its readers. 
Few publications have a readership so intimately involved with its 
month-to-month features. As SoftSide grew and improved, so did you, 
our readers. You made BASIC do previously unimaginable things. 
Through SoftSide , the once-mute TRS-80 and Apple computers were 
given voices, and the Atari veritably sang. 

Though its main purpose has always been to provide the best entertain¬ 
ment software in BASIC for the home computer user, SoftSide has ex¬ 
plored every facet of personal computing. The book you now hold con¬ 
tains utilities, space games, adventures, an information manager, a text 
editor, and more — in all, over twenty fully updated programs to amuse 
you and help you use your personal computer to greater advantage. In¬ 
cluded are some of our most popular programs ever, Quest, Flip-It, and 
SWAT. Most of the programs have been fully documented by the 
authors, and are accompanied by annotated variable lists, to help you 
learn more about BASIC and the way the programs accomplish what 
they do. If you are a regular reader of SoftSide , these are familiar 
features. If you’re new to us, welcome to The Best of SoftSide. 
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USING THE BEST OF 

SOFTSIDE 


You are now holding the Atari version of The Best of SoftSide . 
Also available are the Apple and TRS-80 versions. 

This book contains over twenty programs and their accompanying ex¬ 
planatory articles and documentation selected from past issues of Soft- 
Side magazine. Each program is introduced and explained by the article, 
followed by a listing of the BASIC program itself. These listings were 
generated by an Atari computer just like yours, and appear in a 
38-column format, the same as the Atari’s screen display. 

One of the features of the Atari computer is its multiplicity of special 
graphics characters and inverse video. The graphics characters are usual¬ 
ly control characters — that is, you type them by pressing a key while 
holding down the key marked CTRL. Inverse video is toggled on and off 
by the Atari logo key (J|0* These special characters are somewhat dif¬ 
ficult to represent in a printed listing, so we have adopted some simple 

conventions to ease your typing. See the next page for examples and ex¬ 
planations of these conventions. 

The greatest aid to your typing is SWAT , the Strategic Weapon 
Against Typos. This debugging program appears last in the book, and is 
followed by “SWAT Tables” for every program. The SWAT article will 
explain how to use the program to locate and elimiate typographical er¬ 
rors. Many of the programs in The Best of SoftSide originally appeared 
before the development of SWAT, and appear here with SWAT Tables 
for the first time. 

If typing doesn’t sound like fun to you, be sure to see the special order 
form for the disk version of The Best of SoftSide elsewhere in this book. 

And now, we proudly present The Best of SoftSide • 
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PRINTED LINE LISTING CONVENTIONS 

Listed below is a short example of an Atari program listed according 
to SoftSide’s standard conventions. The program, of course, is trivial, 
and doesn’t even run; it is just a short example that should make our 
listing methods clear. 

10 pDTMT HI 11 

lv fliim j 

20 A$= ,, fflmffifffffqalllffiffif™ ,, :REH Loaer 
case characters are control. 

30 67t= B ENEIfY; ard“:REH Lower case cha 
racters are control. 

40 Rf="t=-+“sREH Control characters. 

In line 10, you see the right brace character, “ } ”. This represents the 
clear-screen character, whose ATASCII code is 125. You type this 
character by first pressing and releasing the ESC key, located in the up¬ 
per left quadrant of your keyboard, then pressing SHIFT-CLEAR. On 
your Atari’s screen, this will appear as an arrow that curves up and to the 
left. Go ahead and try this example on your computer. 

Let’s go on to line 20. Notice the REM statement. It will be appended 
to the line in question, or it will occupy the immediately preceding line. 
Those lower-case characters represent the unprintable control (graphics) 
characters that your Atari can display. These are typed by pressing the 
appropriate letter key while you hold down the CTRL key. The string in 
line 20 begins with 5 CTRL-M’s. Try it! 

In line 30, you can see the REM statement warning you about control 
characters. Also note the underlining. This represents characters to be 
typed in inverse video. You put your Atari in inverse video by pressing 
and releasing the Atari logo(J|^) key at the right end of the space bar. 
Pressing it again puts the computer back in the normal video mode. To 
type the string in line 30, you would press the Atari logo key before typ¬ 
ing the first “E”. Then you would type “ENEMY: ”. Note that the 
space after the colon is underlined; you must type it in inverse, as well. 

Now you’ve come to the lower-case letters. The REM tells you that these 
are graphics (control) characters. The “a” isn’t underlined, so you 
should type the CTRL-A that it represents in normal video. The CTRL-R 
and CTRL-D are in inverse. Yes, even graphics characters can be either 
normal or inverse. The proper typing of inverse is important both to get¬ 
ting a correct display on the screen and to generating proper SWAT 
tables. 

Finally, we come to line 40. The string here has cursor-control 
characters in it — the arrow keys. Normally, when you press CTRL and 
an arrow key, the cursor moves in the direction of the arrow. These 
movement codes can be put into programs, too, but they don’t show up 
on a printer. Since the arrow keys have other characters on them, we can 
use them to represent the arrow keys, with an accompanying REM to 
warn you. 

You type these characters by pressing and releasing ESC, then pressing 
the appropriate arrow key while holding down CTRL. 

That’s really all there is to it, so go ahead and delve into The Best of 
SoftSide . 
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DEFENSE 

by Greg Schroeder 



Defense is an arcade-style game for 
one or two players requiring an Atari 
with 16K RAM (32K with disk) and 
one joystick. 

The object of Defense is to destroy 
as many of the aliens that fly across the 
moon’s surface as possible, before 
your three fighter ships have been 
destroyed. 

When the game begins, you are given 
a brief description of your situation 
and mission while the computer 
redefines the Atari character set. Then 
you type 1 or 2 for the number of 
players in the game. A “get ready” 
prompt is given at the start of each 
player’s turn. The computer will draw 
a text graphics display using the 
characters it previously defined in 
graphics mode 1, showing at the top 
each player’s score, the highest score so 
far, and number of ships left; and at 
the bottom, how many aliens in the 
current attack wave remain. In the 
center is your playing field, with your 
special text graphics ship on the left 
side and the moon’s surface along the 
bottom. 


Player #l’s joystick is plugged into 
socket #2, and player #2’s joystick 
plugged into socket #3. If you push the 
joystick up or down, your ship will be 
raised or lowered. But don’t go too far 
down, because if you hit the ground, 
your ship will be destroyed. Push the 
joystick to the right and after about a 
second, you will gain airspeed and the 
ground will start to move. Pushing the 
stick to the left will cause you 
to lose airspeed and the ground to 
slow also. 

As many as three aliens at a time will 
appear on the screen when they have 
reached your section of the moon’s 
surface. The scoring system for each 
alien is as follows: 

Yellow Drone: 10 points. 

Green Drone: 20 points. 

Blue Drone: 30 points. 

Red Drone: 40 points. 

Red Smiling Blob: 100 points. 

Green Smiling Blob: 200 points. 

To destroy these aliens, you must 
reach their altitude with your ship and 
fire a laser beam by pressing the fire 
button. When you hit them, their 
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scores are shown and added to your 
total score. 

The aliens fly in specific attack pat¬ 
terns. The drones will fly diagonally, 
bouncing off the top and bottom of the 
playing field, while the smiling blobs 
fly in an erratic pattern towards you 
and have a better chance of hitting 
you. Be careful, because the smiling 
blobs begin in the center of the screen, 
unlike the drones which start at the 
far right. 

If an alien does hit you, your ship 
will be shown exploding in a graphics 
display and one ship will be deducted 
from your possession. Then, if it is a 
one-player game, you will continue in a 
different ship, or if a two-player game, 
the next player will have a turn. 

When you run out of ships the game 
is over for you and your score is 
displayed. But there is a way to gain ex¬ 
tra ships. As you destroy the aliens, the 
number of remaining attackers in that 
wave will decrease on the bottom of the 
screen. If all the aliens in that wave are 
destroyed, then you will be given 500 
bonus points for each ship you have 
left. Every time you clear out four such 
waves, you are awarded a 
bonus ship. 

Note: The system reset key must be 
pressed before each run of the program 
to restore the Atari character set. 

Variables 

A(n,n): Nonvisible position of aliens 
along the moon’s surface. 


A, I, J, X,: Miscellaneous variables. 
AL(n): Number of aliens in each 
player’s current attack wave. 

A$: Moon surface picture string. 

B(n), C(n): X and Y positions of 
aliens on screen. 

D(n): Y movement of alien on screen. 
E(n): Type of alien on screen. 

F(l), F(2): Number of aliens in each 
player’s attack wave. Used to reset 
AL(n). 

F(3), F(4): Number of attack waves 
destroyed by each player. 

GS: Ground speed. Controls speed of 
ground picture movement and alien 
movement. 

H$: Temporary string storage used in 
moving the moon’s surface. 

PL: Current player number. 

PP: Total number of players. 

R(n): Stores number of aliens along 
moon’s surface that are on the 
screen. 

S: Joystick value. 

SC(n): Each player’s score. 

SH(n): Remaining ships for each 
player. 

SL: Trigger flag. If SL= 1 then the 
trigger is still pressed. 

ST: Pointer to beginning of redefined 
character set. 

TT: Counter for alien movement on 
screen. 

XC: Counter for alien movement 
along moon’s surface. 

Y: Y axis of postion of player’s ship. 
(X defaults to 1.) 

Yl: Temporary storage for Y. 


ss ss ss ss ss ss ss ss ss ss ss 

ss 


ss 

ss 

Atari BASIC 

ss 

ss 

'Defense’ 

ss 

ss 

Author: Sreg Schroeder 

ss 

S3 

Copyright (c) 1982 

ss 


SS SoftSide Publications, Inc SS 
SS SS 

ss ss as ss ss ss ss ss ss ss ss 

Lines 10-50: Initialization 


Jump to subroutine for title and 
character redefinition. 


10 GOSUB 10000 
Dimension variables. 


15 DIH A(2,41) i B(4) I C(4),D(4),E(4),F(4 
),SH(2),SC(2),A$(21),H$(5) J Rf4J,flL(2): 
SC(1)=0;SC S2)=0 
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Set arrays to zero. 

20 FOR 1=0 TO 4:B(I)=-1:C(I)=0:D(I)=0: 
E EI) =0:R(I)=0:NEXT I 
25 I=SC(1)t(SC!1)>SC(2))+SC(2!l(SC(2!> 
SC (1)): HSC=HSCt (HSDI)+1 HI >HSC) 

Place aliens for two players in moon’s 
surface variable. 

30 FOR 1=1 TO 2:FOR J=1 TO 20:AtI,J)=I 
NT(RND(0)t16):NEXT J:NEXT I 

Define other variables for both players. 

40 SH(1)=3:SH(2)=3:SC(1)=0:SC(2)=0:AL( 
13 =20:AL(2)=20:F(1)=20:F(2)=20:F(3)=0i 
F(4)=0:XC=0 

Jump to “get ready” subroutine. 

50 G0SUB 6000 

Lines 100-150: Main loop. 

Increment alien on screen counter. 

100 TT=TT+1:IF TT=4 THEN TT=1 

Move moon’s surface contained in A$. 
Use H$ as temporary storage. 

105 IF GSM THEN H$=A$(i,GS) :AHA$!GS+ 
1,20):A$(LEN(A$)+l)=Ht:POSITION 0,20:? 
#6;A$; 

Lines 110-140: Move ship. 

Check if joystick moved. 

110 S=STICK(PL):IF S=15 THEN 150 
Check joystick to move ship up. 

120 Y1=V:IF S/2=INT(S/2! AND Y>6 THEN 
Y=Y-1 

Check joystick to move ship down. See 
if ship hit ground. 

125 IF (S=5 OR S=? OR 5=13) THEN Y=Y+1 
:IF Y=20 THEN GOTO 3000 


Erase and reprint redefined ship 
character. 

130 POSITION 1,Yi!? 16;“ "^POSITION 
1,Y:7 #6j B XY 8 ; 

Check joystick to move ship faster. 

135 IF S)4 AND S<B AND GS<2 THEN GS=GS 
+0.05 

Check joystick to move ship more 
slowly. 

140 IF S)B AND S<12 THEN GS=GS-0.05;IF 
GS<0 THEN GS=0 

Lines 150-170: Fire laser. 

Check If trigger released. 

150 IF STRI0(PL)=1 THEN SL=0:G0T0 200 

If trigger is still pressed, branch to alien 
movement. 

155 IF 5L=1 THEN 200 

Print redefined text graphics laser. Make 
noise. Check if laser hit alien(s). 

160 SOUND 1,20,4,15:P0SITI0N 3,Y:? #6; 

" ■■■■■ . “::FDR 1=1 TO 3:IF Bi 

I)>2 AND INT(C(I))=Y THEN 4000 

161 REN LINE 160: 16 INVERSE <CTRL>V 

162 NEXT I 

Erase laser. Turn off sound. Set trigger 
pressed variable. 

165 POSITION 3,Yi? #6;' 

";:SOUND 1,0,0,0;SOUND 2,0,0,0;SL=1 

Check if all aliens are gone. 

170 IF fiL(PL)<1 THEN 4100 

Lines 200-300: Alien movement. 

Increment moon surface counter. 

200 XC=XC+1:IF XC=F(PL)+1 THEN XC=1 
The Best of SoftSide 3 




Move aliens’ position in array. 

210 IF A(PL,XC)>-5 THEN A(PL,XC)=A(PL, 
XC)-(OS):IF fl(PL,XC)<=0 THEN 1000 

Check if array contains no aliens. 

220 IF B(TT)=-1 THEN 300 

Erase alien. Move alien along X axis. 
Check if It is off-screen. 

230 POSITION INTCB(TT)),INT(C(TT)):? 8 
6;" "j:B!TT)=B!TT!-SS-0,5:IF BiTTKO T 
HEN B(TT)=-l;A(PL,R(TT))=15:GOTO 300 

Check if alien Is smiling blob, and 
branch to different movement routine. 

240 IF E(TT)>4 THEN 2000 

Check if alien is off-screen after moving 
along Y axis. 

250 C(TT)=C(TTI+B(TT):IF CETTXi OR C( 
TT)>19 THEN C(TT)=C!TT)-DiTT):D(TT)=-B 
(TT) 

Check if alien hit player. 

255 IF INT(E(TT))>=0 AND INT(B(TT))<=2, 
THEN IF INT(C(TT))=¥ THEN 3000 

Print specific redefined alien character. 

260 POSITION INT(B(TT)),INT(C(TT)):60S 

UB 260+E(TT) 15:GOTO 300 

265 ? 86;"Z“;:RETURN 

270 ? #6; V;: RETURN 

275 ? 16 ;”Z";: RETURN 

280 ? #6;“z";:RETURN 

285 ? 86; T';: RETURN 

290 ? 86;”t“;:RETURN 

Return to start of main loop 
300 GOTO 100 


))))))))))) 


Lines 1000-2010: Set up new alien. 

Find empty alien variable. If none, then 
restart alien at end of moon’s surface. 

1000 FOR 1=1 TO 3:IF B(I)=-1 THEN 1010 
1005 NEXT I:A(PL,XC)=15:GOTO 220 

Set Y value for alien. Set alien’s 
movement. 

1010 C(I)=INT(RNBI0!I12)+7:D!I!=RND(0) 
+0,1-1.51(RND(0)<0.5) 

Pick alien type. Remember which 
surface alien it is. If alien is a smiling 
blob, then start X position at mid-screen. 

1020 E(I)=INT(RND(0)*6)+1:R(I!=XC:A(PL 
,XC)=-10:B(I)=17:IF E!I)>4 THEN B(I)=1 
1 

1025 GOTO 220 

Move smiling blob along Y axis. 

2000 IF CtTTKY THEN D(TT)=1: GOTO 250 
2010 IF C(TT!>=Y THEN D(TT)=-1:GQT0 25 
0 

Lines 3000-3070: You’ve been hit. 

Clear playing field. 

3000 FOR 1=6 TO 19:PQSITI0N 0,1:? *6;“ 

H ;:NEXT I 

Reset aliens to surface start. 

3010 FOR 1=1 TO 3:IF B(I)>0 THEN A(PL, 

R(I)i=15:B(I)=-l 

Turn off sound. 

3015 NEXT I:FOR 1=0 TO 3:S0UND I,0,0,0 
:NEXT I 

Print redefined ship character. Brighten 
ship in red. 

3020 POSITION 1,¥:? #6;"XY";:F0R 1=2 T 
0 8 STEP O.hSETCQLQR 2,4“l:NEXT I 
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Make explosion sound, first explosion. 
Initialize explosion loop. 

3025 SOUND O,20,8,15:POSITIQN 1,Y:? #6 
;"t»“;:FQR 1=15 TO 0 STEP -0.2 

Make explosion sounds. 

3030 SOUND 0,20,8,I:SOUND 1,75,8,1+1:5 
0UND 2,175,8,1+3:SOUND 3,255,8,1+5 

Print explosion steps when ready. 

3040 IF 1=12 THEN POSITION 0,Y-1:7 #6; 
" tt";:POSITION 0,Y:? #6;tPOSIT 
lOrUjY+l:? *6; ,, |l"; 

3045 IF 1=8 THEN*P0SITI0N 0,Y-1:? #6;" 
Lit "-,-.POSITION 0,Yi? #6;"Z++#";-.POSIT 
ION 0,Y+l:? #6;"t^T; 

3050 IF 1=4 THEN POSITION 0,Y-1:? #6;” 

";:POSITION 0,Y:? #6; "+„+"; :P03IT 
ION* 1,Y+is? iij'j"; 

3055 IF 1=1 THEN POSITION 0,Y-1:7 ifi;■ 
”;:POSITION 0,Y:? #6; u ";:PQSIT 
ION 0,Y+li? #6;" 

Turn off sound. Erase ship. 

3060 NEXT I:FDR 1=0 TO 3:S0UND I,0,0,0 
:NEXT I:POSITION 1,Y:? *6;" 

Set ground speed to zero. Subtract ship 
from player. Print number of ships left. 
Check if ail ships gone. 

3062 GS=0:5H(PL)=SHXPL)-1:POSITION 3+1 
2t(PL=2>,4:? #6;SH(PL),:IF SH!PL)=0 TH 
EN G0SU8 7000 

If there is another player, then change 
player variable. 

3065 IF SH!PL-i+2t(PL=l)>>0 THEN PL=PL 
+1 s IF PL>PP THEN. PL=1 

Jump to “get ready” routine. Jump to 
screen drawing. 

3070 6QSUB 5000:F0R 1=1 TO 1000:NEXT I 
:G0SUB 6000:XC=0;GOTO 100 


Destroy aliens. Make noise. Check if 
alien is a smiling blob. 

4000 SOUND 2,RND(0)1200+50,10,lOiPOSIT 
ION INT(B(I)),INT(C(I)):? #6;:IF E(I)> 

4 THEN 4020 

Print score for drone. Add to total score. 

4010 ? i6;E(I)llO;:SC(PL)=SC!PL)+E(I)l 
10:GOTO 4030 

Print score for smiling blob. Add to total 
score. 

4020 ? «&;(E(I)-4m00::SC(PL!=SC(PL) + 

(E (I>-41*100 

Clear alien variables. Print player's 
score. 

4030 8(I)=-1:A(PL,R(I)> =-5:POSITION 2, 
3:? #6;SC(1!;:IF PP=2 THEN POSITION 14 
,3:? t6;SC(2); 

Decrease the number of aliens in attack 
wave. Return to see if more hit. 

4040 AL(PL)=AL(PL)-1:POSITION 2,22:? I 
6', n zt=°;AL(l!;" B ;:IF PP=2 THEN P0SITI 
ON "2,22:? #6; “2^t= H ;AL(2); “ "; 

4050 NEXT I .-GOTO 165 

Lines 4100-4135: 

Attack wave destroyed. Clear screen. 
Restore Atari character set. Add to 
player’s wave cleared total. Print 
message. Make noise. 

4100 GRAPHICS 17:P0KE 756,224:F(PL+2)= 

F(PL+2)+1:POSITION 8,10:? 16;"attack": 

? 16;" wave ";F!PL+2); 

4110 ? *6;" destroyed":? I6:S0UND 0,20 
0,10,10:SOUND 1,201,10,10:SOUND 2,0,0, 

0 

Print bonus message (500 points for 
each remaining ship). Add bonus to total 
score. 
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4120 ? #6;" BONUS - SH(PL)<500;SC 
(PL)=SC(PL)+SH(PL)1500 

Check if extra ship is awarded. Print 
message. 

4123 IF F(PL+2)/4=INT(F(PL+2)/4! THEN 
SH (PL) =SH (PL)+1: ? 16:? *6;" extra s 
hip" 


Add more to next wave. Reset aliens on 
surface. 

4125 fiL(PL)=F(PL)+5:F(PL)=F(PL)+5:IF F 
(PL)>40 THEN F(PL)=40;AL(PL)=40 

Make sure wave never exceeds 40 aliens. 

4130 FOR J=i TO AL(PL):ftEPL,J)=INT(RND 
(0)116):NEXT J 

Jump to screen drawing. Jump to main 
loop. 

4135 FOR 1=1 TO 1500:NEXT IsGOSUB 6000 
:GOTO 100 

“Get Ready” Clear screen. Restore Atari 
character set. Print message. 

5000 GRAPHICS 18:POKE 756,224:POSITION 
4,5:? #6;"PLAYER ";PL 
5005 POSITION 4,6:? 16;" GET READY!I ”:R 
ETURN 

Lines 6000-6070: 

Draw screen. Clear screen. Restore new 
character set. Turn off sound. 

6000 GRAPHICS 17:P0KE 756,ST/256:FQR X 
=0 TO 3:SOUND X,0,0,0:NEXT X 

Print message for both players (if only 
one player, print only his messages). 

6020 POSITION 6,0:? #6j"defense":POSIT 
ION 3,2:? I6|"il AAAAAAA 12":POSITION 
!18-LEN!STR$!H5C)))/2,1:? #6;HSC; 


6030 POSITION 2,3:? #6jSC(1)f:POSITION 
3,4:? #6;SH(1); 

6040 IF PP=2 THEN POSITION 14,3:? #6;S 
C(2);:POSITION 15,4:? #6;SH(2); 

6045 POSITION 2,22:? «6;“zt=";AL(l);:I 
F PP=2 THEN POSITION 12,22:? #6;“Zt="; 
AL!2!; ~ 

Print line made of redefined characters. 

6050 FOR 1=0 TO IMPOSITION 1,5:? #6;“ 
W";:NEXT I 

Assemble moon’s surface picture in A$. 

6060 FOR 1=1 TO 20;A$(I,I)="3 B :NEXT I: 
Af(10,11!="UV":A$(2,3)=“UV”:A$(19,20)= 
*UV“ 

Print ground. Set ship position (Y) to 
mid-screen, and print ship. Make rocket 
sound. 

6070 POSITION 0,20:? #6;A$;:Y=12:POSIT 
ION 1,Ys? #6;"XY";:SOUND 0,75,3,4:RETU 
RN 


Lines 7000-7050: 

Game over. Restore Atari character set. 
Print game over message and score. 

7000 POKE 756,224:GRAPHICS 18:P0SITI0N 
5,5:? 46;" PLAYER ";CHR$(PL+176);:P0Sf 
TI0N 5,6;? 46;"game over"; 

7005 POSITION 4,8:? 16;" score = ";SC!P 
L>i 

See if both players’ games are over. 

7010 FOR 1=1 TO 400:NEXT I;IF SHU)=0 
AND SH(PP)=0 THEN 7050 

Return to main loop. 

7020 RETURN 
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POP last GOSUB from stack. Jump to 
title routine. Jump to number of players 
input. Jump to set-up of variables. 

7050 FOR 1=1 TO 400;NEXT I;POP :BOSUB 

Lines 10000-10070: 

Redefine character set. Set top of 
memory five pages down, initialize 
graphics. Jump to title display routine. 

11000:GDSUB UlOOsGOTO 20 

10000 POKE 106,PEEK C106)-5:GRAPHICS 0: 

GOSUB 11000 

Set start of new character set pointer. 

10010 ST=(PEEK(106)+1)1256 

Move Atari character set from ROM to 
top of RAM. Jump to number of players 
input. 

10020 FOR X=0 TO 1023:P0KE ST+X,PEEK(5 
7344+X):NEXT X:GQSUB 11100 

Redefine “X” character to be back half 
of ship. Redefine “Y” to be front half. 

“Z” becomes a drone. “U” is CHR$(6). 
“V” is CHR$(7). 

10030 FOR X=0 TO 23:READ A:POKE ST+448 
+X,A;NEXT X;FQR X=0 TO 15:P0KE ST+424+ 
X,PEEK(ST+560+X! :NEXT X 

“W” is CHR$(18) 

10040 FOR X=0 TO 7:PQKE ST+440+X,PEEK( 
ST+656+X):NEXT X 

“T” is a smiling blob. 

10045 FOR X=0 TO 7:READ A:POKE ST+416+ 
X,A:NEXT X 

is flat ground and laser. 

10050 FOR X=0 TO 6:PQKE ST+256+X,0:NEX 
T X:POKE ST+263,255 

Initialize new character set. 


10055 GRAPHICS 1:POKE 756,ST/256:RETUR 
N 

DATA for redefined characters. 

10060 DATA 0,0,0,0,30,15,7,7,0,0,0.,0,0 
,192,252,255,0,8,28,62,127,42,20,34 
10070 DATA 0,126,153,153,255,189,195,1 
26 

Title display. Suppress cursor. Print title 
and instructions. 

11000 GRAPHICS 17;POKE 752,1:POSITION 
7,0:? #6;" defense ":? #6:? 16:? 16:■ e 
vil aliens from" 

11010 ? 16;" beyond earth have invad 
ed the moon.":? 16:? 16 
11020 ? 16;" YOUR MISSION IS TO DE 
STR0Y AS MANY ATTACKING NAVES OF TH0 
SE ALIENS BEFORE"; 

11030 ? #6;“ THEY LAUNCH THEIR FLEET 
S TO CONQUER THE EARTH.":? #6:? 16 
11040 ? 16;" YQUR JOYSTICK CQNTR 
QLS YOUR SPEED AND ALTITUDE. PUSH THE 
BUTTON TO FIRE. ” 

11050 RETURN 

Lines 11100-11120: 

Number of players input. OPEN 
keyboard. Print message. 

11100 OPEN #2,4,0,"K:":P0SITI0N 0,23:? 
#6;"PUSH 1 OR 2 TO START"; 

Check if key “1" or “2” was pressed. 

11110 IF PEEK(764!030 AND PEEK!764)<> 

31 THEN 11110 

GET key pressed. CLOSE keyboard. 

Decide whether one or two people are 
playing. 

11115 GET #2,I:PP=1;CLOSE 12:IF 1=50 T 
HEN PP=2 

Set player variable. Jump to “get ready” 
subroutine. 

11120 PL=1: GOSUB 5000: RETURN 
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Atari version by Alan J. Zett 


“Quest V 9 is a graphic adventure arrows, and holy water, plus his trusty 
game that runs in 24K RAM. sword. Some healing potions will also 

be given for restoring wounds. 

In “Quest V 9 you become a strong After you have named your fighter, 
warrior who journeys through an you will be teleported into a 
ancient maze in search of four huge marketplace in a nearby town to 
sapphires and other treasures. These bargain with a greedy merchant for 
precious jewels are guarded by terrible more supplies. This usually takes only 
Wraiths, Giants, Mummies, and other a short time, since the merchant will 
unpleasant monsters. To find the probably either sell to you quickly, or 
treasures, then, you must be very else refuse to sell at any kind of af- 
strong (to kill the monster) or very dex- fordable price. After completing your 
trous (to sneak around the monster and bargaining, enter a ‘O’ to begin your 
steal the treasure). quest. 

When you begin your quest, a When you enter the dungeon, a text- 
character will be created for you. He graphic display will be created on the 
(or she) will be either an Elf, a Dwarf, screen, showing all your statistics in the 
or a Human. He will be given ratings in corners and a picture of your current 
strength (3-20) and dexterity (3-20), location in the center. A specially- 
and a percentage rating according to defined text character represents you. 
his wounds (100% = no wounds, Treasure chests appear as asterisks (*), 
0% = demise). Being new to the field of while monsters are shown by the initial 
questing, your warrior will not be letter of their name, 
much favored by the gods and will not You can attempt your quest through 
have much magic to use. He will, the 58 rooms of the dungeon simply by 
however, have four different ways to killing monsters, taking the treasures, 
fight: He will be given a random and moving on. However, this is not 
number of normal arrows, magic advisable for two reasons. First, you 
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must remember the way out of the 
dungeon, or you will surely perish. 
And second, wandering monsters 
abound in this dungeon; if a wraith, 
for example, comes up behind you, he 
will probably kill you with one good 
blow. You should also be aware that 
frequent trips back for supplies are not 
wise, since, once you’ve garnered 100 
experience points, more monsters enter 
the dungeon while you’re shopping. 

Note that the greater your dexterity 
rating, the more slowly the game will 
seem to move. This is because your 
higher dexterity, in effect, gives you 
more time to think and react relative to 
the pace of the game. As you ac¬ 
cumulate experience points, however, 
the pace and difficulty of the game will 
increase. 

When you find your way out of the 
dungeon, the computer will give you a 
list of all the treasures you retrieved, 
add in any arrows or potions you may 
have found, give you a chance to save 
the game, and let you quit if you want 
to. If you do quit, the computer will 
give you a list of all your fighter’s 
abilities and possessions so that you 
can use him in a later game. If you elect 
to continue, you are teleported back 
into the marketplace to get more sup¬ 
plies and then to continue your quest. 

Commands are entered with single 
keystrokes, as follows: 

W: Move up. 

A: Move left. 

D: Move right. 

X: Move down. 

Any key other than above: Stop 
movement. 

N: Shoot a normal arrow (not effec¬ 
tive against Wraiths). 

M: Shoot a magic arrow. 

T: Toss a vial of holy water (affects 
only “undead” monsters: Skeletons, 
Zombies, Ghouls, Mummies). 

F: Fight in close combat (not effec¬ 
tive against Giants or Wraiths). 

O: Open a treasure chest when you 


are next to it. (It will disappear and 
its contents will be displayed on the 
screen.) 

H: Drink a healing potion. (This 
restores your wound rating to 100%.) 

On page 18 is a listing of Quest 2 
Data . You should type this listing as a 
separate program, and check it with 
SWAT. Then save it on tape or disk 
with the LIST "C:” or LIST “D: 
filename” command. 

Quest 2 Data supplies the informa¬ 
tion for a different dungeon. If you get 
tired of Quest l*s original dungeon, 
you can change dungeons by first 
loading Quest 1, then issuing the 
ENTER "C:” or ENTER “D:file 
name” command, as appropriate. 
Then save the resultant new program 
under a different filename or on 
another tape. Have fun! 


Variables 

Al: Number of normal arrows. 

A2: Number of magic arrows. 

DX: Dexterity rating. 

EP(*): Experience value of each 
treasure. 

GP(*): Gold value of each treasure. 
HW: Number of vials of holy water. 
M$(*): Single-character monster 
identifier. 

Ml(*): Type of monster in each 
room. 

M2(*): Number of monsters in each 
room. 

MN$(*): Names of the monsters. 
MS(*): Standard wound value for 
each monster. 

NM$: Name of fighter character. 

OP: Original price of an item at the 
market. 

PI: Current price of an item at the 
market. 

PT: Number of healing potions. 

Rl(*): Identifies each location as 
either a passage/intersection (= 1) or 
a chamber/room ( = 2). 
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R2(*,*): For each room, identifies 
what room you will enter by exiting 
up, down, left, and right respectively. 
RC: Race of fighter (0 = Human, 

1 =Elf, 2 = Dwarf). 

RM: Current room number. 

ST: Player strength. 

T$(*): Name of each treasure. 

Tl(*): Identifies type of treasure in 
each room. 

TS(*): Quantity of each treasure type 
retrieved by player. 

TX,TY: X and Y coordinates of 
treasure. 

W: Wounds (multiply by 100 to get 

nprppntji <yp^ 

WX,WY: X and Y coordinates of 
monster. 

X5,Y5: X and Y coordinates of 
player. 

YY$: Single-character identifier for 
player. 

Editor's notes: 

XFR$, which you will find printed as 
a series of periods in the program 
listing , actually contains a Machine 
Language routine that quickly sets up a 
redefined character set for the Atari. It 


is very difficult to represent this string 
in the listing of the program , so here 
are explicit instructions on how to type 
it. 

In these instructions, each key is 
represented by something between 
brackets . Thus [h] means to type a 
lower-case “h”; likewise, [Atari] 
means to press the Atari logo key, 
which is found next to the right-hand 
shift key, and [CTRL-N] means to 
press the “N” key while holding down 
the “CTRL” key. Special note: [1] is a 
the numeral one — it is not the lower¬ 
case version of “L”! 

Type the following sequence exactly 
to produce XFR$: 

{h]fA tariM)]fA tari] [CTRL-,] 

JA tari] [CTRL-E] [K] [CTRL-E] fM] 
[)][CTRL-.] [CTRL-E] [N]*f%] 
fAtari]fj] JCTRL-X] fi][CTRL-A] 

[A tari] ^[CTRL-E] [LJfspacebar] 

[A tari] [CTRL-,] [A tari] [1] [M] 

[CTRL-mx] fHHPNyrtf] fL][f] 
TNM%] [N] W fd] [P] [m] [Atari] 
[CTRL-.] 

User must hit [System Reset] prior to 
every “RUN” of “Quest” to 
reinitialize the character set. 


SB SB SB SB SB SB 3S SB SB SB SB 


SS 


SS 

SS 

Atari BASIC 

SS 

SS 

'Quest' 

SS 

SS 

Author: Brian Reynolds 

SS 

SS 

Translator: Alan J. Zett 

SS 

SS 

Copyright (c) 1982 

SS 


SB SoftSide Publications, Inc SB 
SB SB 

BS SB SB SB SB SB SB SS SS SB SS 

Initialize character modification and 
print title page. 

1 GOSUB 30000:? CHR$(125)sPQKE 752,i:P 
OSITIGN 15,6:? " QUEST I 8 

2 ? :? "QUEST was written by Brian Rey 
nolds n :GPEN #3,4,0/K a 

3 ? :? "(ATARI translation by Alan J. 


Zett) a 

7 GOSUB 600:FOR M TO 276:T$(X)= a fl :N 
EXT X:FGR X=1 TO 88:HN$(X) =i ”:NEXT X: 

m=*r 

8 FOR X=0 TO 9:TS(X)=0:NEXT X 

9 FOR X=1 TO 49:K$(X,X)=CHR$<INT<RNB<0 
)$32)).'NEXT X:Kf(49)= a 8 

Data for monsters and treasures. 

100 DATA Worthless odds and ends,0,0,A 
bag of Copper Coins ,1,3,A snail Brass 
Statuette ,2,5 

102 DATA A bag of various Coins,3,7,A 
purse of Gold Coins,5,12,3 Gold Nugget 
5,8,17 

Io4 DATA 4 snail Turquoises ,7,15,A lar 
ge Ruby , 15,30 

! 106 DATA A IHUGEt Sapphire ,150,150,A 8 
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ealinq Potion,10,0 

JOB DATA 10 Hagie Arrows,15,0,10 noraa 
1 Arrows ,10,0 

110 DATA SKELETON,S,2,0RC,0,3,ZOMBIE,Z 
,4,6HQUL,q,6 

112 DATA HUGE SPIDER,H,7,MUMMY,H,8,GIA 
HT f B, 9 f MRftlfft , W,9.9* 

Data for the rooms. 

115 DATA 1,12,3,2,18,0,0,0 
120 DATA 2,0,0,0,1,4,2,8 
125 DATA 1,1,0,4,19,0,0,1 
130 DATA 1,0,0,5,3,3,1,1 
135 DATA 2,6,38,0,4,1,3,6 
140 DATA 1,8,5,9,7,0,0,0 
145 DATA 1,0,0,6,0,0,0,1 
150 DATA 2,0,6,0,11,2,11,2 
155 DATA 2,0,0,10,6,2,3,1 
160 DATA 2,0,0,0,9,5,1,4 
165 DATA 1,0,0,8,12,0,0,1 
170 DATA 2,0,1,11,13,2,5,3 
175 DATA 1,0,0,12,14,0,0,1 
180 DATA 2,15,26,13,17,5,1,1 
185 DATA 2,0,14,0,0,0,0,1 
190 DATA 2,0,17,0,0,1,2,5 
195 DATA 1,16,20,14,0,4,1,1 
200 DATA 2,0,19,1,26,2,2,7 
205 DATA 2,18,30,3,27,3,2,2 
210 DATA 1,17,21,0,0,0,0,1 
215 DATA 1,20,22,0,0,6,2,9 
220 DATA 1,21,23,0,0,2,3,12 
225 DATA 1,22,24,0,0,4,2,10 
240 DATA 1,23,25,34,0,0,0,11 
250 DATA 2,24,0,0,0,7,3,9 
260 DATA 2,14,0,18,0,3,2,1 
270 DATA 2,0,28,19,0,4,1,2 
280 DATA 1,27,29,31,0,0,0,1 
290 DATA 2,28,0,0,0,5,1,10 
300 DATA 2,19,0,0,0,1,2,3 
310 DATA 1,0,32,0,28,0,0,4 
320 DATA 1,31,33,43,0,0,0,1 
330 DATA 2,32,35,0,0,5,1,8 
340 DATA 1,0,0,35,24,0,0,12 
350 DATA 1,33,36,45,34,0,0,5 


360 DATA 1,35,0,37,0,7,1,10 
370 DATA 2,0,0,0,36,8,3,9 
380 DATA 1,5,49,0,39,0,0,1 
390 DATA 1,0,40,38,0,0,0,6 
400 DATA 1,39,0,0,41,2,3,2 
410 DATA 1,42,46,40,43,4,1,7 
420 DATA 2,0,41,0,0,7,3,8 
430 DATA 2,0,44,41,32,6,1,11 
440 DATA 1,43,45,0,0,0,0,5 
450 DATA 1,44,0,47,35,0,0,1 
460 DATA 2,41,47,48,0,5,1,7 
470 DATA 1,46,0,50,45,0,0,3 
480 DATA 1,0,0,49,46,0,0,1 
490 DATA 2,38,51,52,48,6,1,6 
500 DATA 1,0,0,51,47,2,5,10 
510 DATA 1,49,0,53,50,4,3,5 
520 DATA 2,0,0,0,49,6,1,6 
530 DATA 2,0,54,0,51,5,1,8 
540 DATA 1,53,0,0,55,0,0,1 
550 DATA 2,0,0,54,56,2,3,2 
560 DATA 1,0,0,55,57,6,1,8 
570 DATA 1,0,0,56,58,7,3,11 
580 DATA 2,0,0,57,0,8,4,9 
590 RESTORE :60T0 603 

Initialize the variables. 


600 DIM HN$(B9),Ht(8),MS<8),Rl(58),R2! 
58,4),M1(58),M2(58),T1(58),T$(277),EP! 
12),6P(12),TSi9),YYt<l) 

602 DIM X4T23),NMf(20),At<5),Kf(49),X1 
4(2),It(2):RETURN 

603 FOR X=1 TO 12:READ Xt,Xl,X2:Tt<(X* 
23)-22)=Xt:EP(X)=Xl:GP(X)=X2:NEXT X:T$ 
(277)="#° 

605 FOR X=1 TO 8:READ Xt,Xlt,X2sNNt((X 
tll)-10)=Xt:Mt(X)=Xlf:MS<X)=X2:NEXT X: 
MNti89)="# u 

610 FOR X=1 TO 58:READ Xl:RHX>=XlsFOR 
Y=1 TO 4:READ X1:R2(X,Y)=X1:NEXT Y 
615 READ X1:M1(X)=X1:READ Xl:M2(X)=Xls 
READ X1:T1(X)=X1:NEXT X 
620 RM=1:A1=1000:A2=1000:«=1:P2=2:POKE 
752,0 

BOO IF Bl=l THEN GOSUB 20000 
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805 IF Bl-1 THEN B1=0:G0T0 900 
810 POSITION 2,12:? "Want to use an ol 
d character "pINPUT At:? :IF MU,IK 
>"Y" THEN B0S0B 21000.-G0T0 900 

812 ? 'NAME: "p INPUT NHt 

815 ? "STRENGTH: "p INPUT ST:IF ST>20 

OR ST<3 THEN 815 

820 ? "DEXTERITY: "pINPUT DXsIF DX>20 
OR DX<3 THEN 820 

825 ? "HOUNDS: INPUT W:W=W/100:1F H 

<0.1 OR N>1 THEN 825 

830 ? "EXPERIENCE: " 5 :INPUT EP 

832 ? "GOLD: "p INPUT GP 

835 ? "IS <S)HE AN ELF "p INPUT At:IF 
Atd,l) s "Y" THEN RC=1 

836 IF RC=0 THEN ? “IS (S)HE A DHARF " 
pINPUT At:IF At(l,l)=“Y" THEN RC=2 
B40 ? “HAGIC ARROWS: "p INPUT A2:? "NO 
RHAL ARROWS: "p INPUT A1 

845 ? "HEALING POTIONS: "p INPUT PT 

846 ? "HOLY WATER: “pINPUT HH 

Ask if you want to load in an old game. 

850 ? "Want to load in an old gase "p 
INPUT At:IF At(l,l)<>*Y" THEN 900 
860 ? "FROM CASSETTE OR DISK "pINPUT 
At:IF At(l,l)="C" THEN ? "HIT <RETURN> 
WHEN READY ":G0T0 880 
862 IF At(l,1)<>"D" THEN 860 
870 OPEN #2,4,0,"D:QUEST.DAT" 

872 FOR X=1 TO 58:INPUT #2;X1:H1(X)=X1 
:INPUT #2jXl:H2(X)=Xl:INPUT #2;X1:T1(X 
)=X1 

874 GOTO 884 

880 OPEN #2,4,0,"CsQUEST.DAT" 

882 FOR X=1 TO 58:INPUT #2;X1:H1<X)=X1 
:INPUT #2;X1:H2(X)=X1:INPUT #2;X1:T1(X 
)=X1 

884 NEXT X:CLOSE #2 
Marketplace and bargaining routine. 

900 ? CHRt(125);"SOLD: "; 6 P 

901 ? :? "You’re at a sarket. Prices h 
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ere are:*:? 

903 ? ’ll] HAGIC ARROW... 2 

60LD 123 FOUR NORHAL ARROWS. 1 

GOLD" 

905 ? “E3I HEALING POTION . 15 

GOLD 14] HOLY WATER . 3 

GOLD" 


910 ? :? "OK, ";NHt|", what do you nee 
d "p INPUT At: IT=VAL<At) 

911 IF IT>4 OR IT<0 THEN ? CHRt(253) 5 " 

I DON’T SELL THAT!":GOTO 910 

912 IF IT=0 THEN 990 

913 IF IT=1 THEN Pl=2 

914 IF IT=2 THEN Pl=l 

915 IF IT=3 THEN Pl=15 

916 IF IT=4 THEN Pl=3 

917 ? :? "At “;P1;* GOLD apiece,":? "h 
oh aany Hill you buy "pINPUT At:Nf1=VA 
L(At):PRINT 

918 IF NH<0 THEN PRINT CHRt(253)j“VERY 
FUNNY!!":PRINT "I DON’T BUY THINGS, I 

SELL THEN!!":GOTO 916 

920 Pl=PltNH 

921 0P=P1 

925 ? :? "That coses to " 5 PI;" GOLD, “ 

; NHt 

930 ? “Hqh such sill you give ae "pIN 
PUT A:? 

935 IF A<0P/10 THEN ? "FORGET IT!!!“:G 
0T0 901 

940 IF A<0P/2 THEN ? “NOT INTERESTED." 
:60T0 901 

941 IF A>=P1 THEN ? "YOU GOT A DEAL!": 
GOTO 950 

942 Y=A/P1:X=RND(0):IF X>Y THEN ? "Not 
interested.“:P1=INT((OP+PD/2):G0T0 9 

30 

945 P1=INT((Pl»2+A)/3):IF P1<=A THEN 9 
41 

947 ? “Hoh about “;Plj", "j NHt;"?":GQT 
0 930 

950 IF GP<P1 THEN ? :? "WHAT!! YA CAN’ 

T PAY YER DEBTS! ":? “ YOU’LL BE THROWN 
INTO PRISON FOR THISl ";CHRt(253):END 
955 GP=GP-P1:? "You noH have “;GP;" 60 
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LD, ";NH$ 

957 IF IT=4 THEN HH=HH+NM 
960 IF IT =1 THEN A2=A2+NM 
965 IF IT=2 THEN A 1 =A 1 +NHM 
970 IF IT=3 THEN PT=PT+NM 
980 GOTO 901 

Enter dungeon; check for too many 
arrows. 

990 ? “OK, "|NMt;“, PRESS <RETURN> TO" 
s? "ENTER THE DUNGEON!" 

991 EL=0 

992 IF EP>100 THEN EP=EP-100:EL=EL+100 
jFOR X=1 TO 58:H2(X)=H2IX)tl.liNEXT X: 
GOTO 992 

993 EP=EP+EL 

994 IF EL>500 THEN FOR U=EL TO 500 STE 
P -100:FOR X=1 TO 58:H2(X)=N2(X)/1.1:N 
EXT XsNEXT U 

995 INPUT At:? CHRt!125):POKE 752,1 

996 A3=0:A4=0 

997 IF A27STI2 THEN A4=A2-STI2:A2=STt2 
:? "NORE THAN "}ST*2; B HAGIC ARRQHS NO 
OLD*:? "HEIGH YOU BONN":? 

998 IF A1>STI2 THEN A3=Al-STt2:Al=STt2 
:? "NORE THAN ";ST»2;" ARRONS HOULD":? 

"HEIGHT YOU BONN":? 

999 FOR X=1 TO 500:NEXT X 

Upon entering a new room, draw it with 
its monsters and treasures. If this is 
room one, give option to leave. 

1000 POKE 752,1:? CHRt(125):IF B1=0 TH 
EN B1=1:G0T0 1005 

1001 IF RHOl THEN 1005 

1002 PRINT "Do you wish to leave the d 
ungeon ";:INPUT At 

1003 IF THEN 800 

1004 ? CHR$(125) 

1005 ON Rl(RH) G0SUB 10000,11000 

1010 IF T1(RH)>0 THEN TX=INT(RND(0)»9) 
+16:TY=INT(RND(0)I6)+9:P0SITI0N TX,TY: 
PRINT 

1015 X5=20:Y5=11 

1020 IF It="H" THEN Y5=22 


1022 IF It="X" THEN Y5=2 
1024 IF It="D" THEN X5=2 
1026 IF It="A" THEN X5=38 
1028 POSITION X5,Y5:? YYt; 

1030 IF H2(RH)>=1 THEN HX=INT(RND!0)t9 
) f-16:HY=INT (RND(O) 46) f-9 

1031 MS=MS(M1(RH))/10 

1050 IF H2(RM)> s l THEN POSITION HX,HY: 
PRINT Mt(Hl(RM),Hl(RH)); 

Print player status. Check for wandering 
monsters. 


1055 POSITION 2,1:? "ARROHSrjAii■ “ 5 : 
POSITION 2,0:? "H ARROWS:"|A2j" 

1060 POSITION 2,21:? "ST=";ST;‘ BX="jD 
X;:POSITION 2,2:? "HOUNDS:";INT(HtlOO+ 
0.5);" "j 

1061 POSITION 2,3:? “ROOM:“|R«;* "} 

1062 POSITION 31,17:? "POTIONS:"j:POSI 
TION 33,18:? PT;“ “j 

1063 POSITION 31,19:? “H HATER:";:P0SI 
TION 33,20:? HH;" 

1065*IF M2(RH)>=1 THEN POSITION 27,0:? 
" NONBTER: ":POSITION 27,1:? NNtUHlfR 
N)tll)-10,Nl(RH)tll) 

1070 IF H2(RN)<1 THEN POSITION 27,0:? 

" "^POSITION 27,1:? " 

1075 IF N2(RH)>1 THEN POSITION 27,2:? 
"NUMBER:INT(H21RN));" 

1077 IF H2(RMK=1 THEN POSITION 27,2:? 

R H , 

1080 POSITION 2,17:? "EX:";INT4EP);« " 
;:P0SITI0N 37,3:? "W";:POSITION 36,4:? 
“A D"jtPOSITION 37,5:? "X"; 

1085 POSITION 2,18:? "GP:";GP;" 

1086 IF N2(RH)<>0 OR (INT(RND(0)*100)+ 
1)01 THEN 1090 

1087 FOR X=1 TO 7:POSITION 4,23:? "HAN 
BERING MONSTER! ";:FQR Y=1 TO 40:NEXT Y 
:POSITION 4,23 

108B ? " ";:F0R Y=1 T 

0 15:NEXT ViNEXT X:M2(RH)=INT(RND(0)t3 
)+1:Ml(RH)=INT(RND(0)t8)+1:GOTO 1030 
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Accept a command from the keyboard 
and call the appropriate subroutine. 

1090 At= aa :F0R X=1 TO DX*10-EPsIF PEEK 
(764)=255 THEN NEXT X/G0T0 1093 

1091 SET #3,As POKE 764,255:A*=CHR$(A) 
1093 IF T1(RH)>0 THEN POSITION TX,TY;P 
RINT 

1095 IF A$=““ THEN A$=I$:G0TQ 1100 
1097 I$=A$ 

1100 IF I$="H" THEN 6DSUB 15100 
1105 IF It="X" THEN G0SUB 15200 
1110 IF I$="D" THEN G0SUB 15300 
1115 IF I$="A" THEN GOSUB 15400 
1120 IF I$="H" THEN Ii= aa :IF PT>0 THEN 

PT=PT-l:H=i 

1125 IF I$=“H" AND A2>0 THEN I*= aa :A2= 
A2-1:GOSUB 15500 

1130 IF I$="N" AND ADO THEN I*="'sAl= 

Al-1:GOSUB 15600 

1135 IF I$="F" THEN GOSUB 16000 

1140 IF I$= a 0 a THEN GOSUB 17000 
1145 IF IS= a T“ AND HH>0 THEN It= aa ;HH= 
HH-liGOSUB 18000 

If there is a monster, move it, and let it 
attack. 

1200 IF H2XRMX1 THEN 1030 

1201 IF HS<=0 THEN FOR X=i TO LEN(K»): 
POSITION NX,NY:? K*!X,X);:NEXT X;H2(RH 
)=H2(RH)-liEP=EP+NS(H1!RH))/GOTO 1030 

1205 HX=SGN(X5-HX) 

1206 IF HX<X5 THEN HX=1 

1207 IF WX=X5 THEN NX=0 
1210 HY=SGN!Y5-HY) 

1215 POSITION NX,NY:? " 

1220 LOCATE NX+HX,NY,A:POSITION NX+HX, 
NY:? CHR4(A);:IF A=32 THEN NX=NX+HX 
1225 LOCATE HX,NY+WY,A:POSITION NX,HY+ 
NY:? CHR$(A);:IF A=32 THEN NY=NY+HY 
1230 IF ABS(NX-X5)>1 OR ABS!NY-Y5)>1 T 
HEN 1050 

1235 X=RND(Q):IF X>MS THEN 1050 
1240 X=RND(0)*HS 


1245 H=N-X:IF N<0 THEN 5000 
1250 GOTO 1050 

End-game routine for the “Great 
Dungeon In The Sky.” 

5000 FOR X=1 TO LEN(K*)/POSITION X5,Y5 
:? K$(X,X);:NEXT X:FOR X=1 TO 400:NEXT 
X;? CHRH125) 

5005 ? "NELCOHE TO HEAVEN, a }NH*j a !!! a 
5010 ? "I HOPE YOU ENJOYED YOUR SHORT 
LIFTIHE IN NHICH YOU ACCUHULATED a ;GP; 

• GOLD" 

5015 ? "AND "jEPj" EXPERIENCE POINTS." 
5020 ? :? :? "NOULD YOU LIKE TO BE REI 
NCARNATED AS A NEN CHARACTER a ;:INPUT 
A$:IF At(l,l)= a N a THEN GRAPHICS 0:END 

5025 POKE 106,PEEK(106)+5:GRAPHICS 0:R 
UN 

Subroutine to draw a passage/ 
intersection. 

10000 X1=R2!RH,1) 

10010 IF XDO THEN FOR X=0 TO 7:P0SITI 
ON 15,XsPRINT POSITION 25,X:PRINT 
:NEXT X 

10012 IF X1<=0 THEN POSITION 15,7:? "& 
10015 X1=R2(RH,2) 

10020 IF XDO THEN FOR X=15 TO 22:P0SI 
TION 15,X:PRINT /POSITION 25,X:PRI 
NT "& a ;:NEXT X 

10022 IF X1<=0 THEN POSITION 15,15:? a 
10025 X1=R2(RH,3) 

10030 IF XDO THEN FOR X=25 TO 38:P0SI 
TION X,7:PRINT "l a ;:POSITION X,15:PRIN 
T "St" ;:NEXT X 

10032 IF X1<=0 THEN FOR X=7 TO 15:P0SI 
TION 25,X:? ‘VjjNEXT X 
10035 X1=R2!RH,4) 

10040 IF XDO THEN FOR X=2 TO 15:P0SIT 
ION X,7:PRINT j/POSITION X,15:PRINT 
"It" ;: NEXT X 

10042 IF X1<=0 THEN FOR X=7 TO ISsPOSI 
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TION 15,Xi? "&";:NEXT X 
10045 RETURN 

Subroutine to draw a chamber/room. 

11000 POSITION 11,4:? ■MAHt'pPOBITIO 
N 25,4:? ■tMUt 1 ; 

11010 POSITION 11,18:? *UtU a ; :PQSITI 
ON 25,18:? HMU"; 

11012 FOR X=5 TO 7:P0SITI0N 11,X:? *& 

&";:NEXT X 

11014 FOR X=15 TO 17:PQSITI0N 11,X:? * 

t lt";:NEXT X 

11015 X1=R2 CRM.1) 

11020 IF X1>0 THEN FOR X=0 TO 4:P0SITI 
ON 15,X:PRINT POSITION 25,X:PRINT 
“lt";:NEXT X 

11022 IF X1<=0 THEN POSITION 15,4:? “& 
11025 X1=R2!RH,2) 

11030 IF X1>0 THEN FOR X=18 TO 22:P0SI 
TION 15,X:PRINT POSITION 25,X:PRI 
NT a & a ;:NEXT X 

11032 IF X1<=0 THEN POSITION 15,18:? “ 

&&&&&&&&&&&'; 

11035 X1=R2(RH,3) 

11040 IF XDO THEN POSITION 29,7:PRINT 

POSIT ION 29,15:PRINT "fc 

mttuu'i 

11042 IF X1<=0 THEN FOR X=7 TO 15:P0SI 
TION 29,X:? a & a ;:NEXT X 
11045 X1=R2(RH,4) 

11050 IF XDO THEN POSITION 2,7:PRINT 
POSITION 2,15:PRINT "&&& 

11052 IF X1<=0 THEN FOR X=7 TO 15:P0SI 
TION 11,X:? :NEXT X 

11055 RETURN 

Subroutine to move player about on the 
screen. 

15100 IF ¥5=1 THEN 15105 
15102 LOCATE X5,Y5-1 f H:POSITION X5,¥5- 
ls? CHRt(H):IF N<>32 THEN RETURN 
15105 POSITION X5,Y5:? * a j 


15110 Y5=Y5-1:IF Y5<1 THEN RH=R2(RH,1) 
:G0T0 1000 

15120 POSITION X5,Y5:? Y¥$;sRETURN 
15200 IF Y5=21 THEN 15205 
15202 LOCATE X5,Y5+1,H:P0SITI0N X5,Y5+ 
1:? CHR$(H):IF H<>32 THEN RETURN 
15205 POSITION X5,Y5:? a a ; 

15210 Y5=Y5+1:IF ¥5)21 THEN RN=R2(RH,2 
): BOTO 1000 

15220 8QT0 15120 
15300 IF X5>37 THEN 15305 

15302 LOCATE X5+1,Y5,HsPOSITION X5+1,Y 
5:? CHR$!H):IF H<>32 THEN RETURN 

15303 LOCATE X5+2,Y5,IMPOSITION X5+2,Y 
5:? CHR$(H):IF H<>32 THEN RETURN 
15305 POSITION X5,Y5:? “ a j 

15310 X5=X5+2:IF X5>37 THEN RH=R2(RH,3 

):GOTO 1000 

15320 60T0 15120 

15400 IF X5<3 THEN 15405 

15402 LOCATE X5-1,Y5,IMPOSITION X5-1,Y 

5:? CHR4(N):IF H<>32 THEN RETURN 

15403 LOCATE X5-2,Y5,IMPOSITION X5-2,Y 
5:? CHR$(H):IF H<>32 THEN RETURN 

15405 POSITION X5,Y5:? a “} 

15410 X5=X5-2:IF X5<3 THEN RH=R2<RH,4) 

:GOTO 1000 
15420 GOTO 15120 

Normal-arrow firing routine. 

15500 GOSUB 15699 

15505 X=RND(0)/2:IF RC=1 THEN X=X-0.1 

15506 IF RC=2 THEN X=X+0,1 

15507 X=X-(EP/1000) 

15510 X=X-0.2 

15511 X=X-(DX/100) 

15515 IF X>N THEN RETURN 

15520 X=RND(0):IF RC=1 THEN X=X+0.2 

15522 IF RCOl THEN 

15523 IF RC=2 THEN X=X+0.1 
15525 HS=HS-X:RETURN 
15599 RETURN 

Magic-arrow firing routine. 
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15600 GOSUB 15699 

15601 IF N1!RN!=8 THEN RETURN 

15605 X=RND(0>/2: IF ROl THEN X*X-0.1 

15606 X=X-(DX/100) 

15607 IF RC=2 THEN X=X+0.1 

15608 X=X-(EP/1000> 

15610 IF X)H THEN RETURN 

15620 X=RND(0):IF RC=1 THEN X=X+0.1 

15621 IF RC=2 THEN X=X-0.1 
15625 «S=HS-X:RETURN 

15698 RETURN 

Calculate monster range, aim, and shoot 
arrow. 

15699 IF HX=0 THEN HX=31:IF WY=0 THEN 
HY =8 

15700 X6=X5:Y6=Y5-1s X7=HX s Y7=HY 

15701 IF X6=X7 THEN SL=0:X8=X7sX9=X6 

15702 IF X60X7 THEN SL=(Y6-Y7)/!X6-X7 
):X8=X6:X9=X7 

15703 GOTO 15708 

15705 IF X6)X7 THEN SL=<Y6-Y7)/XX6-X7) 
:X8=X6:X9=X7 

15706 IF X7>X6 THEN SL=XY7-Y6)/<X7-X6) 
;X8=X7:X9*X6 

15707 IF X7=X6 THEN SL=0:X8=X7:X9=X6 

15708 Y8=Y6:Y9=Y7 

15709 Y=Y 8 

15710 SL=SUSGN(Y8-Y9):IF Y6<Y7 THEN S 
L=-SL 

15711 IF X6)X7 THEN SL=-SL 

15712 FOR X=XB TO X9 STEP SGNIX9-X8+0. 
01>:F0R XX=1 TO 5 :NEXT XX 

15713 IF Y>22 OR Y<1 OR X>37 OR X<3 TH 
EN NEXT X s GOTO 15750 

15715 LOCATE X,Y,A:IF A=38 THEN X9=X-1 
.■GOTO 15750 

15720 POSITION X,Y:PRINT "+‘;:Y=Y+SL:N 
EXT X 

15750 Y=Y8:F0R X=X 8 TO X9 STEP 9GNIX9- 
X8+0.01):P0SITIQN XjYsPRINT " ";:Y=Y+S 
L;NEXT X 
15760 RETURN 

Subroutine for close combat with a 
monster. 


16000 IF ABS!X5-NX)>1 OR ABS(Y5-HY)>1 
THEN RETURN 

16001 IF HHRH )=8 THEN RETURN 

16002 IF HI(RM)=7 THEN RETURN 

16003 IF H 1 (RH )=6 THEN N=H-0.05 

16005 X=RND!0)iIF RC=0 THEN X=X-0.1 

16006 X=X-(DX/100> 

,16007 IF RC=2 THEN X=X-0.3 

16008 X=X-(EP/1000) 

16010 IF X>« THEN RETURN 

16015 X=RNDI0)sIF RC=0 THEN X=X+0.1 

16016 X=X+!ST/100) 

16017 IF RC=2 THEN X=X+0.2 
16020 HS=HS-X:RETURN 

Subroutine for opening a treasure chest. 

17000 IF ABS(TX-X5)>1 THEN RETURN 
17005 IF ABSXTY-Y5)>1 THEN RETURN 

17010 POSITION TX,TY:? " 

17011 TX=0:TY=0 

17015 POSITION 12,23:? T$((TURH)*23)- 
22,Tl(RH)*23)j:F0R X=1 TO 120:NEXT X 

17020 FOR X=12 TO 34:P0SITI0N X,23:? ■ 
";:NEXT X 

17021 IF T1(RN)=10 THEN PT=PT+1:60T0 1 
7026 

17022 IF T1(RH)=11 THEN A2=A2+10:6QT0 
17026 

17023 IF T1(RH)=12 THEN A1=A1+10:G0TQ 
17026 

17024 TS(T1(RH> >=TS(T1<RH))+l 

17025 SP=GP+GP(T1(RH)) 

17026 EP=EP+EP(T1(RH)):T1(RH)=0 
17030 RETURN 


Subroutine to throw a flask of holy 
water. 

18000 H=M1 (RH): IF H=2 OR N=5 OR N=7 TH 
EN RETURN 

18005 GOSUB 15699:POSITION NX,NY:? 8 0 
;:HA=HX:HB=WY:WX=X5:HY=Y5:GOSUB 16000: 
HX=HA:WY=HB:PQSITION X5,Y5:? YYfj:RETU 
RN 
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End-of-game procedures, such as saving 
games and printing out information on 
the player’s character. 

20000 PRINT "MOULD YOU LIKE TO SEE THE 
TREASURES YOU RETRIEVED FROM THE DU 
NBEON 1 ';: INPUT At 

20005 IF At(l,l)="Y“ THEN FOR 1=1 TO 9 
:? STRt(X);". ";Tt((X423)-22,Xt23);CHR 
t(127);TS(X):NEXT X 

20010 FOR X=1 TO 9:TS(X)=0:NEXT X 

20011 A1=A1+A3*.A2=A2+A4 

20015 ? :? "WOULD YOU LIKE TO SAVE THI 
S BANE INPUT At 

20017 IF Atil,l)<>“Y" THEN 2002B 

20018 ? "CASSETTE OR DISK INPUT A«: 
IF At(l,l)="C‘ THEN ? "HIT <RETURN> HH 
EN READY ":60T0 20024 

20019 IF At(l,l)O u D" THEN 20018 

20020 OPEN #2,8,0,"D;QUEST.DAT" 

20021 FOR X=1 TO 5B;PRINT #2;N1!X);PRI 
NT #2|H2<X)SPRINT #2;T1(X) 

20022 BOTO 20027 

20024 OPEN #2,8,0,"C:QUEST.DAT" 

20025 FOR X=1 TO 58:PRINT #2?M1<X)sPRI 
NT #2;N2!X):PRINT #2;T1 (X) 

20027 NEXT X:CLOSE #2;? "SAVE COMPLETE 

a 

* 

20028 ? "Would yOu like to stop odh 
■.INPUT At:IF At!l,l)<>"Y" THEN RETURN 
20030 ? "OK. So that you can use this 
characteragain at a later tine:" 

20035 ? ‘NAME: ";NNt;" RACE: *;:IF RC= 
0 THEN ? "HUNAN" 

20036 IF RC=1 THEN ? "ELF" 

20037 IF RC=2 THEN ? "DWARF" 

20045 ? "HEALINB POTIONS: "?PT 

20046 ? "HOLY WATER: ";HH 

20050 ? "ARROWS: ";Alj" NA6IC ARROWS 
: ";A2 

20055 ? "BOLD: ";6P;“ EXPERIENCE: "; 
EP 

20060 ? "STRENBTH: ";ST;" DEXTERITY: 
“;DX 

20065 ? :? "Would you like to try agai 
n":? "as a 4NEW4 character INPUT At 


:IF At(l,l)="Y" THEN 5025 

20099 BRAPHICS 0:? "CONE QUESTINB ABAI 

N SONETIME!!END 

Subroutine to create new characters. 

21000 ? "OK, I’ll take you one.":F0R X 
=1 TO 100:NEXT X:BP=INT(RND(0)t20)+6:S 
T=INT(RND(0)417)+4:DX=INT(RND(0)ll7)+4 
21005 RC=INT(RND(0)43):A1=3:A2=INT!RND 
(0)I10)+1:PT=INT(RND(0)I3)+2:HW=INT(RN 
D(0)45)+1:EP=Q:W=1 

21010 ? "STRENBTH: ";ST;" DEXTERITY: 
";DX 

21015 ? "BOLD: "|6Pj" HEALINB POTION 
S: *;PT 

21020 ? "HOLY WATER: "jHW;" RACE: "; 

:IF RC=0 THEN ? "HUNAN" 

21021 IF RC=1 THEN ? "ELF" 

21022 IF RC=2 THEN ? "DWARF" 

21025 ? "ARROWS: “jAl;" MAGIC ARROWS 
: ";A2 

21030 ? :? "What will you nase this ch 
aracter":INPUT NNt:? :? "HAVE A FUN 8U 
EST, "jNHti"!!!!' 

21040 FOR X=1 TO 200:NEXT X:? CHRt(125 
):RETURN 

Redefine as a red block, and 
as a man character. 

30000 POKE 106,PEEK!106)-5:6RAPHICS 0: 

? "INITIALIZING . . .":SETC0L0R 2,7,0 
30010 START=!PEEK(106)+1)4256 

30020 DIN XFRt(38):XFRt="........ 

...”:Z=USR(ADR(X 

FRt));RESTORE 3005 0 

30021 REN TO TYPE XFRt IN LINE 30020, 
REPLACE THE STRINB OF PERIODS WITH THE 
STRINB DESCRIBED IN THE DOCUMENTATION 
30030 POKE 756,START/256 

30040 FOR X=0 TO 7:POKE X+START+48,85: 
NEXT X:FQR X=0 TO 7:READ XhPQKE X+STA 
RT+256,X1:NEXT X:RETURN 
30050 DATA 152,216,255,27,25,60,102,23 
1 
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1 SOSUB 30000:? CHR$(125):POKE 752,1:P 
0S1TI0N 15,6:? “ QUEST 2 * 

2 ? :? "QUEST 2 was written by Brian R 
eynold5*:QPEN 13,4,0,"K° 

4 REH QUEST 2 DATA BASE BY T. HENRICH 

115 DATA 2,41,2,36,11,0,0,1 

120 DATA 2,1,8,3,12,1,1,2 

125 DATA 1,0,0,4,2,3,2,7 

130 DATA 2,0,5,0,3,2,1,2 

135 DATA 1,4,6,9,0,6,3,10 

140 DATA 2,5,0,0,7,4,1,5 

145 DATA 1,0,0,6,8,7,1,6 

150 DATA 1,2,0,7,0,5,2,3 

155 DATA 1,0,0,10,5,1,3,7 

160 DATA 2,0,0,53,9,7,3,6 

165 DATA 1,0,12,1,35,2,1,2 

170 DATA 2,11,13,2,0,4,2,1 

175 DATA 1,12,14,0,0,5,2,4 


)))))))))> 


180 DATA 2,13,0,15,0,7,4,8 
185 DATA 1,0,0,16,14,3,1,1 
190 DATA 2,0,23,17,15,6,2,7 
195 DATA 2,0,19,18,16,8,1,1 
200 DATA 1,0,20,0,17,1,2,4 
205 DATA 2,17,0,20,0,6,3,8 
210 DATA 2,18,21,0,19,4,1,1 
215 DATA 2,20,0,0,22,5,2,12 
220 DATA 1,0,0,21,23,1,2,3 
225 DATA 2,16,0,22,24,7,1,1 
240 DATA 1,0,0,23,25,8,1,2 
250 DATA 2,0,0,24,26,8,4,9 
260 DATA 1,27,0,25,0,2,1,1 
270 DATA 2,30,26,0,28,5,2,7 
280 DATA 2,29,0,27,45,6,1,2 
290 DATA 2,0,28,30,0,7,5,9 
300 DATA 1,31,27,0,29,4,2,5 
310 DATA 1,32,30,0,0,1,2,3 
320 DATA 2,0,31,34,33,5,3,8 
330 DATA 1,0,0,32,0,3,1,4 
340 DATA 2,35,0,0,32,1,1,1 
350 DATA 2,36,34,11,0,3,2,6 
360 DATA 2,40,35,37,1,8,5,1 
370 DATA 1,39,0,0,36,2,1,2 
380 DATA 2,0,0,0,39,6,3,8 
390 DATA 1,46,37,38,0,1,2,5 
400 DATA 1,0,36,0,41,7,1,3 
410 DATA 1,42,1,40,0,1,1,1 
420 DATA 2,43,41,0,0,4,1,2 
430 DATA 1,50,42,0,0,5,2,5 
440 DATA 2,48,0,46,0,2,6,8 
450 DATA 2,0,0,28,47,6,3,8 
460 DATA 2,47,39,0,44,3,2,7 
470 DATA 1,0,46,45,48,1,2,1 
480 DATA 2,49,44,47,0,4,1,2 
490 DATA 1,0,48,0,50,1,1,1 
500 DATA 2,0,43,49,51,8,3,8 
510 DATA 1,0,52,50,0,5,1,3 
520 DATA 2,51,54,0,0,2,2,4 
530 DATA 2,0,0,54,10,7,4,9 
540 DATA 1,52,55,0,53,4,5,7 
550 DATA 1,54,0,0,56,7,1,11 
560 DATA 2,0,0,55,57,1,2,6 
570 DATA 1,0,58,56,0,5,3,7 
580 DATA 2,57,0,0,0,8,10,9 
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Space Rescue is an arcade-style game 
for a 16K Atari with one joystick. 

The year is 2086, Just a few months 
ago, the United States launched an ex¬ 
ploration party to search the planet 
Arcturus III for any signs of life. Our 
radar, however, has just picked up a 
huge meteor storm headed straight for 
that solar system which threatens the 
lives of all the people there. You are 
their only hope of survival. You must 
launch your two-person rocket from 
the mother ship orbiting around the 
planet, land at the one landing pad, 
rescue the people stranded there one at 
a time, and then return to the mother 
ship — all while trying to avoid 
crashing your fragile rocket into one of 
the deadly meteors which can easily 
destroy it. 

When the game starts, the computer 
will show the mother ship moving back 
and forth at the top of the screen with a 
cluster of meteors right below it. When 
you think that the ship is right over a 
path through the meteors, press the fire 
button on the joystick to launch your 
rocket. Then you must guide the rocket 
down to the landing pad by moving 
your joystick, being careful not to col¬ 
lide with any of the meteors. To slow 
down, press the fire button to apply 
thrust. After you have landed, one of 


the people will run over to your ship, 
and then you must make your ascent to 
the mother ship and dock with her, 
again carefully avoiding the deadly 
meteors. On the way up, pressing the 
fire button will launch a missile which 
can destroy a meteor, for which you 
can receive points. 

If one of your rockets collides with a 
meteor, then it is destroyed. The game 
continues until all three of your rockets 
are destroyed, at which point the game 
is over. When all of the people are gone 
from the bottom of the screen, the 
computer will award you 50 bonus 
points for each person safely brought 
to the mother ship, and will then give 
you six more people to save. If you suc¬ 
ceed in rescuing all six, you will be 
awarded one bonus ship. During the 
game, the score is displayed at the bot¬ 
tom of the screen underneath the lan¬ 
ding pad. 

Variables 

A, B: Used in determining whether or 
not a collision has occurred. 

D: Direction in which mother ship is 
travelling (1 or -1). 

Dl: Difficulty level. 

G: Missile-launched flag. 

L: Position of landing pad at bottom 
of screen. 

P: Value returned from input com¬ 
mands. 
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PI: Number of people left at bottom 
of screen. 

P2: Number of people safely brought 
to mother ship. 

S: Position of mother ship at top of 
screen. 


SS SS SS SS SS SS SS SS SS SS SS 


SS 


SS 

SS 

Atari BASIC 

SS 

SS 

'Space Rescue’ 

SS 

SS 

Author: Natt Rutter 

SS 

SS 

Copyright (c) 1982 

SS 


SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

Lines 30, 50, 60, 80, 280, and 370 contain 
graphics and/or control characters. 

10 GOSUB 1100:GOSUB 1000 

Initialize variables. Set character base 
register (POKE location 756) to 
beginning of altered character set. 
Display six people at the bottom of the 
screen. 

15 D1=0:SC=0:SL=3 

20 GRAPHICS 0:POKE 756,R:POKE 752,1:SE 
TCQLQR 2,0,0:S=34:D=-1:P1=6:P2=0 
25 FOR 1=21 TO 23:P0SITI0N 0,1:? "f“;: 
POSITION 38,It? a f:NEXT I 

Draw the landing pad, and put the 
meteors on the screen. 

30 L=INT{23$RND(1>+5)sPOSITION L,21:? 

"_^POSITION L-1,22.*? " ":PQ5ITI 

ON L-2,23:? ■_“;:B=0:G=0 

40 FOR 1=1 TO Dltl0+30:P0SITI0N RND(l) 
t35+l,RND(l)tl5+3:? CHR$(20)jsNEXT ItP 
0SITIQN L,23:? SC;:P0KE 77,0 
45 FOR AZ=1 TO SL:S0UND 0,37,10,10sF0R 
N=1 TO 100sNEXT N:SOUND 0,0,0,0:NEXT 
AZ 

Move mother ship back and forth. 

50 POSITION S,0s? “ =+++++ =++ 

++ “;:S=S+D 

51 REN LINE 50s NON-SPACE CHARACTERS 


SC: Score. 

SL: Number of ships left. 

U: Rocket-going-up flag. 

X, Y: Position of rocket. 

XM, YM: Position of missile. 


ARE CONTROL CHARACTERS 

60 POSITION S,0j? "gnnnf=+++++b , fCHRt! 
97);CHR«(98);CHR«(99);*¥=++++«***(: IF 
S<3 QR S>33 THEN D=-D 

61 REN LINE 60: CHARACTERS ARE CONTROL 
CHARACTERS 

65 IF STRIG(0)=0 THEN 80 
70 FOR «=1 TO 25:NEXT H:G0TQ 50 

80 POSITION S+2,2:? ” “:F0R N=1 TO 50: 
NEXT WsPOSITION S,2:? "s i":X=S+2:Y= 

1 

81 REN LINE 80: NON-SPACE CHARACTERS 
ARE CONTROL CHARACTERS 

Check for player Input. 

100 U=0:X1=X:P=STICK(0):IF P<12 AND Y> 
1.5 THEN 60SUB 300 

120 Y1=Y+1:P=STRIG(0);IF P=0 THEN Y1=Y 
+0.5 

Check for collision. 

130 FOR I=X1-1 TO X1+1:LOCATE I,Y1,A:I 
F A=20 OR A=160 THEN 500 
133 IF B=20 OR B=160 THEN 500 
135 NEXT I 

Move ship, and display flame if 
appropriate. 

140 POSITION X-1,Y:? 8 ":P0SITI0N X, 
Y+l:? " ":X=X1:Y=Y1:PQSITIQN X-1,Y:? " 
abc” 

145 LOCATE X,Y+1,B:IF P=0 THEN P0SITIO 
N X,Y+1:? "d":SOUND 1,20,8,15 
147 IF P=1 THEN SOUND 1,0,0,0 

Check for successful landing. 

150 IF X=L+1 AND INT(Y+0.5)=20 THEN P0 
SITI0N X,Y+h? CHR$(160):SC=SC+50:P0SI 
TI0N L,23:? SCjsGOTO 400 
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155 IF Y>20 THEN 500 
160 GOTO 100 

Erase old meteors, and display new 
ones. 

200 X=L+1:Y=20:COLOR 32s FOR 1=3 TO 18s 

PLOT 1,IsDRANTO 37,Is NEXT I 

205 FOR 1=1 TO Dltl5+40:P0SITI0N RNDI1 

1135+1,RND(l)*15+3s? CHR*<20);:NEXT I: 

C=0 

207 POSITION L,21s? " " 

Make launching sound, check for input, 
and move ship up one space. 

210 SOUND 0,5*Y+90,8,B:Xl=XsYl=YsP=STI 
CKtOlsIF P<12 THEN B0SUB 300 
220 C=C+1sIF C=3 THEN C=0:Y1=Y-1 

Check for collision. 

225 FOR I=X1-1 TO X1+1:L0CATE I,Y1,A:I 

F 6=20 THEN 500 
227 NEXT I 

Move rocket, and check for input. 

230 POSITION X-l,Ys? " “sPQSITION X, 
Y+ls? " 8 jsX=Xl:Y=YlsP0SITI0N X-l,Ys? 
"abc"sPOSITION X,Y+ls? 'd“? 

240 IF STRI6(0)=0 AND 6=0 AND Y>4 THEN 
G0SUB 340 

250 IF G=1 THEN GQSUB 350 
255 IF Y=1 THEN 270 
260 GOTO 210 

Check for successful docking with 
mother ship. 

270 IF XOS+2 THEN 500 
275 P2=P2+1 

280 SOUND 0,0,0,0sP0SITI0N S,2s? n ms 
"sCOLOR 32sFOR 1=3 TO 23:PL0T l,IsDRA 

HT0 37,Is NEXT I 

281 REN LINE 280: NON-SPACE CHARACTERS 
ARE CONTROL CHARACTERS 

If all the people are gone from the 


bottom of the screen, Increase the 
difficulty, and branch to the bonus 
routine. 

285 IF P1=0 THEN P1=6:D1=D1+1:60T0 650 
290 GOTO 30 

Subroutine to move ship according to 
Input. 

300 IF P>8 AND P<12 AND X>2 THEN X1=X- 
1 

310 IF P<8 AND X<36 THEN X1=X+1 
320 RETURN 

Launch missile. 

340 G=1:XH=X:YH=Y:F0R 1=10 TO 100 STEP 
10:S0UND 1,1,10,10:NEXT IsSOUND 1,0,0 

.0 

7 ~ 

Move missile and check for collision 
with meteors. 

350 POSITION XH,YHs? u »;:YH=YH-1 
360 LOCATE XH,YH,A:IF A=20 THEN P0SITI 
ON XN,Y«s? n ";:6=0:SC=SC+20:P0SITION 
L,23s? SC;:RETURN 

370 POSITION XH,YHs? “l”sIF YH<4 THEN 
POSITION Xfi,YNs? " *:8=0 
380 RETURN 

Successful-landing routine. Wave arms 
of the next person, and move him over 
to the rocket. 

400 SOUND 1,0,0,0s Y=27-P1:X=38 s X1=34: X 
2=L+5:IF Pl<4 THEN Y=24-P1:X=0:X1=1:X2 
=L-3 

410 FOR 1=1 TO 8:FOR J=101 TO 103sP0SI 
TI0N X,Ys? CHRt(J!;:F0R N=1 TO 30:NEXT 
WsNEXT i 

420 POSITION XI,Ys? "YAY!";sIF I/2=INT 
(1/2) THEN POSITION XI,Ys? ■ 

430 NEXT IsPOSITION X,Ys? " 

440 FOR I=X+S6N(X1-X) TO X2 STEP SGN(X 
2-X) 
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450 FOR J=101 TO 103 STEP 2:PDSITI0N I 
,23:? CHR$(J);:F0R H=1 TO 20:NEXT W 
455 SOUND 0,90,IS:SOUND 0,0,0,0:NEXT 
J:POSITION 1,23:? " sNEXT I 
460 X=I+SGN(X1-X2):Y=23:F0R 1=1 TO 2:X 
=X+SGN(L-X1):Y=Y-1 

465 FOR J=101 TO 103 STEP 2:P0SITI0N X 
,Y:? CHR$(J)j:FOR N=1 TO 20:NEXT N:NEX 
T J:PDSITION X,Y:? ” "pNEXT I 
470 P1=P1-1:U=1:G0T0 200 

Explosion routine. 

500 SOUND 0,0,0,0:SOUND 1,75,8,15 
520 Xl-X-2:X2=X+1:XO=X:XS=2:V0=15:Vl=l 
5:V2=15:P0SITI0N X-l,Yi? " “:P0SITI0 
N X,Y+is? " “ 

530 FOR I=Y TO 22:P0SITIQN XI,I:? "ah” 
^POSITION X2,Is? "ic'jsIF U=1 THEN PO 
SITION XO,Is? “e"; 

540 SOUND 0,20,8,VO:SOUND 1,40,8,V1:S0 
UND 2,70,8,V2:V0=VO*0.7:V1=V110.75:V2= 

V2t0.78:XS=XS-0.2:IF XS<0 THEN XS=0 
550 FOR W=1 TO 30:NEXT N:POSITION XI,I 
:? * "^POSITION X2,1:? " "pIF U=1 
THEN POSITION XO,Is? ” “} 

560 X 1=XI-XS:IF XKl THEN X1=36 
570 X2=X2+XS:IF X2>36 THEN X2=l 
580 NEXT I:FOR 1=0 TO 3:SOUND I,0,0,0: 
NEXT I:SL=SL-1:IF SL=0 THEN 600 
590 GOTO 2B0 

End of game. Print score and game-over 
message, and wait for input. 

600 GRAPHICS 0:P0KE 752,1:POSITION 16, 
10:? "SANE OVER“:POSITION 12,12:? "YOU 
R SCORE IS “;SC 

610 POSITION 8,14:? “PUSH START TO PLA 
Y AGAIN” 

620 IF PEEK(53279>=6 THEN 15 
630 GOTO 620 

Bonus routine. Award 50 points for each 
person safely brought to the mother 
ship. 


»)))))>>))) 


650 FOR 1=3 TO 23:PLOT 1,1:DRAHTO 37,1 
sNEXT I 

660 POSITION 16,10:? “ tBQNUSf fPOSITIO 

N 15,12:? ”SC0RE=”;SC 

670 FOR 1=1 TO P2:P0SITI0N 12+1*2,14:? 

“f":SC=SC+50:P0SITI0N 21,12:? SC 
680 SOUND 0,1120+40,10,10:F0R H=1 TO 5 
0:NEXT H:NEXT I 

690 FOR I=P2 TO 1 STEP -1:S0UND 0,1*20 
+40,10,10:FOR N=1 TO 50:NEXT H:NEXT I: 
SOUND 0,0,0,0:IF P2<6 THEN 699 

Bonus-ship routine. Award a bonus ship 
if all six people are rescued. 

693 POSITION 10,16:? " *** BONUS SHIP! 
t**”pSL=SL+l:FOR P2=l TO 4:FOR AZ=80 
TO 185 STEP 6 

696 SOUND 0,AZ,10,10:S0UND 0,AZ+50,10, 
10:NEXT AZ:NEXT P2 

699 FOR (4=11 TO 111 STEP 5:F0R AZ=N TO 
H-7 STEP -1:SOUND 0,AZ,10,10:NEXT AZ: 
NEXT H.-SOUND 0,0,0,0:60TO 20 

Alter the character set. First transfer the. 
old character set (beginning at ROM 
address 57344) to RAM, beginning 8 
pages (2048 bytes) from the top of 
memory. Then poke the new characters 
from DATA statements into the new 
character set In RAM. This alters the 
lower-case characters “a” to “i.” 

1000 R=PEEK(1061-8:RH=R»256 

1010 C=0:F0R 1=0 TO 1023 STEP 30:C=C+1 

:IF C=3 THEN C=0 

1020 SETC0L0R C,1,8:F0R J=I TO I+30:PQ 

KE RH+J,PEEK(57344+J):NEXT J:SETC0L0R 

C,0,0:NEXT I:SETC0L0R 0,1,8 

1030 FOR 1=0 TO 8:FOR J=0 TO 7:READ A: 

POKE RN+(97+I)*8+J,A:NEXT JtNEXT I:RET 

URN 

1040 REN DATA FOR NEU CHARACTERS, IN 
GROUPS OF 8 

1050 DATA 0,0,12,12,12,15,15,12,24,24, 
24,60,255,255,255,0,0,0,48,48,48,240,2 
40,48 
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1060 DATA 255,255,126,126,60,60,24,24, 
219,126,60,24,24,60,102,195,24,24,255, 
24,24,60,102,195 

1070 DATA 24,24,60,126,219,60,102,195, 
48,48,4B,112,240,240,240,0,12,12,12,14 
,15,15,15,0 

1100 GRAPHICS 3+16.-F0R 1=0 TO 2:SETC0L 
OR I,0,0:NE3?T I 

1105 C=0:F0R 1=0 TO 39:C=C+1:IF C=4 TH 
EN C=1 j 


Draw the opening display on the screen. 


1110 COLOR C:PL0T 1,0:PL0T 39-I,21:NEX 
T 1 

1120 C=0:F0R 1=0 TO 21:C=C+1:1F C=4 TH 
EN C=1 

1130 COLOR C:PLOT 39,I:PL0T 0,21-I:NEX 
T I 

1140 COLOR Is PLOT 9,4:DRAHT0 5,4:DRAHT 


0 5,6sDRAHT0 9,6:DRAHT0 9,9:DRAHT0 5,9 
sPLOT 11,9:DRAWTD 11,4:DRAHTO 15,4 
1142 DRAHTO 15,7:DRAHT0 11,7:PL0T 17,9 
sDRAHTO 17,4:DRAHT0 21,4:DRAHT0 21,9:P 
LOT 17,6:DRAHTO 21,6:PLQT 27,4 
1144 DRAHTO 23,4sDRAHTO 23,9sDRAHT0 27 
,9sPLOT 33,4:DRAHT0 29,4sDRAHT0 29,9sD 
RAHTO 33,9sPLOT 29,6:DRAHTO 33,6 
1150 PLOT 2,17:DRAHTO 2,12:DRAHTO 6,12 
:DRAHTO 6,15:DRAHT0 2,15:PL0T 5,16sPL0 
T 6,17:PLOT 12,12:DRAHTO 8,12 
1152 DRAHTO 8,17:DRAHT0 12,17sPL0T 8,1 
4:DRAHTO 12,14:PL0T 18,12:DRAHT0 14,12 
:DRAHTO 14,14:DRAHT0 18,14 
1154 DRAHTO 18,17:DRAHT0 14,17:PL0T 24 
,12:DRAHTO 20,12sDRAHT0 20,17sDRAHT0 2 
4,17:PL0T 26,12:DRAHTD 26,17 
1156 DRAHTO 30,17:DRAHTD 30,12sPL0T 36 
,12:DRAHT0 32,12sDRAHT0 32,17:DRAHTO 3 
6,17:PLQT 32,14:DRAHT0 36,14 
1160 RETURN 
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MAZE 
SEARCH 

by Dave Bohlke 


Maze Search is an arcade-style game 
for an Atari with a joystick in slot 1 
and 8K RAM. 

Has your mind been uncontrollably 
wandering lately? Then try putting it 
back in line with a game that demands 
intense concentration. In Maze Search , 
you not only need to control your mov¬ 
ing cursor to intercept the 24 targets, 
but you must also diligently plan ahead 
to be able to negotiate the maze. Only 
the very best players will capture all of 
the targets. 

Each game begins with your Atari 
generating a random maze. Every sec¬ 
tion within the maze has only one en¬ 
trance/exit to the outside corridor — 
which is your access to the other sec¬ 
tions of the maze. After the maze is 


completed, 24 blue targets will be plac¬ 
ed at random in the maze. The object 
of Maze Search is to move your green 
cursor and run over the blue targets. 
Several players can compete in turn to 
determine who can intercept the most 
targets. 

There is a time limit to each game, 
which limit you can adjust by changing 
the value of variable CT in line 600. 
The time remaining in the game is in¬ 
dicated by a green bar at the right side 
of the screen. To use your time most 
efficiently, keep your cursor moving! 

Each time you intercept a target, it 
will be displayed along the left side of 
the screen. When the game is over, 
press the fire button on your joystick 
for another game. 


SS SS SS SS SS SS SS SS SS SS SS 

SS 


SS 

SS 

Atari BASIC 

SS 

SS 

'haze Search* 

SS 

SS 

Author: Dave Bohlke 

SS 

SS 

Copyright it) 1982 

SS 

SS SoftSide Publications, Inc 

SS 

SS 


SS 


SS SS SB S5 SS SS SS SS SS SS 3S 
1 GOTO 100 


Direction changes for the STiCK(0) 
commands. See p. 60 of the Reference 
Manual. 

5 GOTO 7 

6 GOTO 14 

7 X=X+1sRETURN 

9 GOTO 13 

10 GOTO 11 

11 X-X-lsRETURN 

13 Y=Y+1;RETURN 

14 Y=Y-h RETURN 
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Full-screen, mode 3 graphics. 

100 6RAPHICS 3*16 

Outline of maze. 

120 COLOR IsPLOT 4,0:DRAHTQ 36,0sDRANT 
0 36,22:DRAHTQ 4,22:DRANTQ 4,0 

Arrays M and N hold the locations of all 
the Intersections In the maze. 

200 DIN H<200),N<200) 

K Is the intorsoction counter. M and N 

A/M>AAn lrvA<kl| Art f Ka 

C IIO LI lo OUIQQII luuauvii \J I U lO 

intersection. 

210 K=0:H=18:N=10 

Plot the initial intersection. 

220 PLOT N,N 

Lines 240-390: Loop for maze 
construction. 

Test whether next intesectlon is filled in. 

240 LOCATE H+2,N,X:IF X=0 THEN 250 
242 LOCATE N-2,N,X:IF X=0 THEN 250 
244 LOCATE N,N*2,X:IF *=0 THEN 250 
246 LOCATE H,N-2,X:IF X=0 THEN 250 

Next intersection is used, so jump to 
line 370 to get the previous intersection 
location, and decrement the counter. 

K = 0 means we're done. 

248 B0T0 370 

When there Is at least one open 
adjacent intersection, pick a random 
direction, D. 

250 D=INT(RND(0)$4)+251:GOTO D 

Offsets for particular directions (Ml and 
N1). 

251 N1=-1:N1=O:0QTQ 300 

252 Hl s 0sNl=lsGOTO 300 


253 H1=1:N1=0:6QTQ 300 

254 H!=0»N1 S -1 

See whether the intersection at the 
random location is open; jump to line 
250 if not. 

300 LOCATE H+H1*2,N+N1*2,X:IF X«1 THEN 
250 

Plot to the open intersection. 

310 PLOT H+H1,II+N1:PL0T H+Hil2,N+Nit2 

Sound and random color. 

320 SOUND 0,«+N,10,4:SETC0LGR 0,RND(0) 
*15,10:SETCQL0R 4,RND(0)*15,8 

Adjust M and N to the new intersection. 
Increment K and M(K) and N(K) as the 
the intersection location. Branch to start 
the process again. 

330 H=N+HU2:N=N+NU2:K=K+1:H(K) =H:N (K 
)=N:80T0 240 

All directions are blocked, so back up to 
the previous intersection. 

370 N=H(K):N=N(K):K=K-1 

Check for maze completion. 


Not finished, so branch to check 
previous intersection. 

390 GOTO 240 

Clear dimensions; they are no longer 
needed. 

400 CLR 

Player starting location. 

405 H=11:N=11 
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380 IF K=0 THEN 400 



Set colors. 


Plot hits left of maze. 


410 SETC0L0R 0,1,iOsSETCOLOR 4,4,6 
420 SETC0L0R 2,8,8:COLOR 2:PLOT H,N 

Plot 24 target blocks. 

430 SETC0L0R 1,12,B:F0R 1=1 TO 24:60SU 
B 900:NEXT I 

Lines 500*700: Main game loop. 

Check stick; if not pressed, branch to 
line 600. 

500 S=STICK(0):IF 5=15 THEN 600 


Save position (M, N) in scratch variables 
X and Y. GOSUB S will be 5 to 14 for 
direction offset. 


510 X=H:Y=N:60SUB S 


Blank player’s biock. Locate new 
position (X, Y). 


520 COLOR 0:PLOT H,Ns LOCATE X f Y,Z 

If no move is possible (wail), then branch 
to line 580. 


540 IF Z=i THEN 580 


If player hits a target block, then 
Increment counter HT, and check for end 
of game. 

550 IF Z=3 THEN HT=HT+lsFOR 1=1 TO 20: 
SOUND 0,1+50,12,15:NEXT I:IF HT=24 THE 
N 800 

Up until first hit, branch to line 560. 

551 IF HT=0 THEN 560 
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552 COLOR 3:IF HT/2=INT(HT/2) THEN PL0 
T 1,23-HT 

554 IF HT/20INT (HT/2) THEN PLOT 2,23- 
HT 


Set M and N to new location X and Y. 


560 H=X:N=Y 


Plot player’s block. 


580 COLOR 2!PLOT H,N 


Increment time; plot time block on the 
right of the screen; check for end of 
game. 


600 CT=CT+0.02:COLOR 2:PLDT 38,22-CTsP 
LOT 39,22-CT:IF CT>21 THEN PLOT 38,0:P 
LOT 39,0:GOTO 800 


A little sound, and branch to beginning 
of game loop. 


700 SOUND 0,2»N+2tN,10,4:60T0 500 


Game is over. Check for the fire button 
to start the next game. 


800 IF STRIG(0)=0 THEN RUN 

810 SOUND 0,RND(0)S100,10,4:GOTO 800 

900 COLOR 3:X=INT(RND(0)116)12+5:Y=INT 

(RNDfO)*ll)»2+l:LOCftTE X,Y,Z 

904 IF ZOO THEN 900 

906 PLOT X,Y:RETURN 
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Minfeolf 

hv Mitrh Vnth • ** 


by Mitch Voth 
Atari version by Rich Bouchard 




Minigolf is an arcade/simulation game 
for an Atari with 16K RAM. 


Do you remember the golden days of 
youthful summers, when you and some 
friends would go to the miniature golf 
course? Do those days seem too far in 
the past? Here is a program that will let 
you recapture a bit of those days, 
without leaving the keyboard of your 
Atari. Minigolf is a graphic represen¬ 
tation of a nine-hole miniature golf 
course with banked walls and even 
some sound. For more fun, the pro¬ 
gram accomodates up to ten players, 
although you can play alone if you so 
desire. In Minigolf, you control the 
angle of your putter by pressing the left 
and right arrows on the keyboard. 
Then, when you feel that the angle is 


ss ss ss ss ss ss ss es ss ss ss 

SS SS 

SS Atari BASIC SS 

SS 'HinigoIT SS 

SS Author: Hitch Voth SS 
SS Translator: Rich Bouchard SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

8 OPEN 11,4,0, , K: H 


correct, press a number from one to 
nine, indicating how hard you wish to 
strike the ball. One is a light tap, and 
nine is a hard hit. The player with the 
lowest number of strokes after nine 
holes. 

Variables 

A: General work variable. 

Bl, B2, Cl, C2, Dl, D2: Used in 
moving the ball. 

HH: How hard the ball is hit. 

HM: Horizontal movement. 

Ml, M2: Movement indicators. 

NP: Number of players. 

P: Par for each hole. 

PT: Player’s turn number. 

S(i): Score for each player. 

S: Number of strokes per hole. 

VM: Vertical movement. 

Z$(i): Player names. 

9 DIM Z$(10O),A$(30),SU0) 

10 GRAPHICS 0:PRINT " ATARI 

9-HQLE 11 SPRINT a HINIATURE 

GOLF H 

20 FOR A=1 TO 100:Z$(A)= H 11 sNEXT A 
25 FOR A=1 TO 10:StA)=0:NEXT A 

30 PRINT -.PRINT SPRINT “NUHBER OF PLAY 
ERS"p INPUT NP: IF NP>10 THEN 10 

32 FOR A=1 TO NP:StNP)=0:PRINT “PLAYER 
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INPUT At:IF LEN(At)>10 THEN At= 
At(l,10) 

33 IF LEN(At)=0 THEN At=* " 

34 Zt(Atl0-LEN(At)+l,A*10)=A$:NEXT A:6 
RAPHICS 5:POKE 752,1 

38 SETCOLOR 0,0,0:SETCQL0R 4,3,10:80T0 
300 

40 6RAPHICS OsPOKE 752,IsPRINT " 
SCORE: ":PRINT :FOR A=t TO NP:PRINT Z 
MAI10-9,Atl0),S(A) sNEXT A 
42 PRINT :PRINT "HIT ANY KEY":6ET #1,A 
GRAPHICS 5:POKE 752,1 :SETCOLOR 0,0,0: 
SETCOLOR 4,3,10:RETURN 
50 GET #1,ZsIF Z<58 AND Z>48 THEN HH=( 
Z-48)t11:HN=0:VH=0:COLOR A:PLOT C1,C2: 
GOTO 200 

60 T=0:IF Z<>43 THEN 70 
62 CP=CP+1:IF CP=17 THEN CP=1 
64 COLOR A:PLOT C1,C2:G0T0 100 
70 IF Z<>42 THEN 50 
72 CP=CP-1:IF CP=0 THEN CP=16 
74 COLOR A:PLOT C1,C2:G0T0 100 
90 COLOR lsPLOT HP1,HP2:PL0T HP1+1,HP2 
92 COLOR 3:PLOT B1,B2:L0CATE C1,C2,A:I 
F A<>2 THEN COLOR 2:PL0T C1,C2:G0T0 50 
94 COLOR 3:PLOT Cl,C2;GOTO 50 

100 GOTO CP+100 

101 C1=B1:C2=B2+2:H1=0:H2=-1:G0T0 90 

102 C1=B1+1:Hi=-l:GOTO 90 

103 C1=B1+2:C2=B2+2:H1=-2:G0T0 90 

104 C2=B2+1:H2=-0.5:GOTO 90 

105 C2=B2sH2=0:GOTO 90 

106 C2=B2-1:H2=0.5:GOTO 90 

107 C1=B1+2:C2=B2-2:Hl=-2:H2=1sGOTO 90 

10B C1=B1+1:H1=-1:GOTO 90 

109 C1=B1:M1=0:GOTO 90 

110 C1=B1-1:H1=1:G0T0 90 

111 C1=B1-2:C2=B2-2:Mi=2:H2=l:GOTO 90 

112 C2=B2-1s H2=0.5:GOTO 90 

113 C2=B2:112=0:GOTO 90 

114 C2=B2+1:H2=-0.5:GOTO 90 

115 C1=B1-2:C2=B2+2:H1=2:H2=-1:G0T0 90 

116 C1=B1-1:H1=1:G0T0 90 

150 COLOR 3:PL0T HP1,HP2:PL0T HP1+1,HP 
2:IF S>1 THEN 156 


152 PRINT "A HOLE IN ONE!!!!!!“:FOR A= 

1 TO 5:FOR B=l TO 59:SETCOLOR 4,B/4+l, 
14:SOUND 0,B,0,10:NEXT BsNEXT A 
154 SETCOLOR 4,3,10:S0UND O,O,O,O:G0TO 
158 

156 PRINT “THAT TOOK YOU "}S;" STROKES 
":FOR A=1 TO 50:SQUND 0,ft,10,10:NEXT A 
:FOR A=49 TO 2 STEP -1 

157 SOUND 0,A,10,lOsNEXT A:SOUND 0,0,0 

158 FOR A=1 TO 700:NEXT AsPRINT CHRt(2 
8 );“ 

":PRINT CHRt(28);CHRt(28);:RETURN 
200 D1=B1:D2=B2:COLOR 2:PL0T B1,B2:IF 
(ABS(N1)=1 AND HN=1) OR ABS(H1)=2 THEN 
204 

202 HH=1:60T0 210 

204 D1=B1+SGN(N1):HN=0 

205 T=T+1:IF T>4 THEN RC=2:RETURN 

210 SOUND 0,200,10,10:SOUND 0,0,0,0:LQ 
CATE D1,B2,A:IF A=0 THEN RC=0:RETURN 

211 IF (DIOHPl AND DlOHPl+1) OR D2<> 
HP2 THEN IF A=1 THEN RC=0:RETURN 

212 COLOR 3:PLOT D1,B2;B1=D1:LQCATE HP 
1,HP2,A:IF AOl THEN S(PT)=S(PT)+S-P:R 
C=1:G0SUB 150:RETURN 

214 LOCATE HP1+1,HP2,^:IF AOl THEN S( 
PT)=S(PT)+S-P:RC=1:GOSUB 150:RETURN 

220 COLOR 2:PLOT B1,B2:IF <ABS(H2)=0.5 
AND VN=1) OR ABS(N2)=1 THEN D2=B2+SGN 
(H2):VH=0:G0T0 230 
222 VN=1 

230 LOCATE B1,D2,A:IF A=0 THEN RC=0:RE 
TURN 

231 IF (DIOHPl AND DlOHPl+1) OR D2<> 
HP2 THEN IF A=1 THEN RC=0:RETURN 

232 COLOR 3sPLOT B1,D2:B2=D2:L0CATE HP 
1,HP2,ft:IF A=3 THEN S(PT)=S(PT)+S-P:RC 
=1:GOSUB 150:RETURN 

234 LOCATE HP1+1,HP2,A:IF A=3 THEN S(P 
T)=S(PT)+S-P:RC=1:GOSUB 150:RETURN 
240 T=0:HH=HH-1:IF HH<0 THEN RC=2:RETU 
RN 

242 GOTO 200 

300 COLOR 2:FOR A=3 TO 36:PL0T 27,A:DR 
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AUTO 45,A:NEXT A:PRINT 8 HOLE I 1 P 
AR T " 

302 P=2sFOR PT=1 TO NP:S=1:PRINT ZKPT 
tlO-9,PT*iO)5 , ’S TURN“:B1=INT(RND<0)*1 
1+32)s B2=31:CP=1 

304 HP1=35:HP2=6 

305 GDSUB 100 

310 IF RC=2 THEN S=S+1:CP=I:BOSUB 100s 
80T0 310 

320 IF RC=1 THEN NEXT PT:GOTO 400 
325 GOSUB 3000 

330 IF Dl=26 OR Dl=46 THEN Hl=-HlsGOSU 
B 200;GOTO 310 

nn cncHio n/\{i.nnrn 7ia 

nx-n^iOUQUD iVViUUlU C'l V 

400 GOSUB 40;COLOR 2;FOR A=13 TO 36:PL 
OT 27,A:DRAHTO 45,A;NEXT A:F0R A=0 TO 
11:PL0T 27+A,13-A:DRAHTQ 70,13-A 
402 NEXT A;PRINT “ HOLE » 2 PAR 2 "; 
FOR PT=1 TO NPsS=1:PRINT ItiPTtl0-9.PT 
*10);“’S TURN" 

404 HPl=60:HP2=8:Bl=INT(RND(0)tll+32): 
B2=31 

405 CP=1:GOSUB 100 

420 IF RC=2 THEN S=S+1:CP=1:GQSUB 100: 
GOTO 420 

430 IF RC=1 THEN NEXT PT:G0T0 500 
435 GOSUB 3000 

440 IF D2=l OR D2=37 OR <D2=14 AND Dl> 
45) THEN H2=-H2:GOSUB 200:G0TO 420 
442 IF Dl<27 OR Dl=46 OR Dl=71 THEN HI 
=-Hl:GOSUB 200:GOTO 420 
444 A=M1jHl=-H2*2:H2=-A/2:GOSUB 200:80 
TO 420 

500 GOSUB 40:COLOR 2:FQR A=13 TO 36:PL 
OT 17,A:DRAHT0 55,A:NEXT A:FOR A=0 TO 
11:PL0T 17+A,13-A:DRAHT0 55-A,13-A 

502 NEXT A:COLOR 1:PLQT 36,10:DRAHTQ 3 
6,36 

510 PRINT “ HOLE « 3 PAR 2 ":FOR PT= 
1 TO NPsPRINT Z$(PTtlO-9,PTtlO);"’S TU 
RN“:B1=INT(RND(0)111+42) 

512 S=1:B2=32:CP=1:HP1=25:HP2=32:BOSUB 
100 

520 IF RC=2 THEN S=S+1:CP=1:GOSUB 100: 
GOTO 520 


530 IF RC=1 THEN NEXT PTsGOTO 600 
540 GOSUB 3000 

550 IF D2=l OR D2=37 THEN H2=-N2:G0SUB 
200:GOTO 520 

552 IF Dl=16 OR Dl=36 OR Dl=56 THEN HI 

=-Hl:GOSUB 200:GOTO 520 

554 IF D1<36 THEN A=H1:H1=-H2I2:H2=-A/ 

2:GOSUB 200:GOTO 520 
556 A=H1:H1=H2I2:H2=A/2:GOSUB 200:G0T0 
520 

600 GOSUB 40:COLOR 2:F0R A=13 TO 24:PL 
OT 21,A:DRAHT0 63,A:NEXT A:FOR A=25 TO 
36:PLOT 21,A:DRAWTQ 35,A:NEXT A 
602 FOR A=1 TO B;PLOT 36+A-24+AsBRAWTO 
63-A,24+A:PL0T 21+A,13-A:DRAHTO 63-A, 
13-A:NEXT A 

604 COLOR 1:PL0T 36,25:DRANT0 36,14:DR 
AHTO 51,14:PLOT 51,14:DRAHT0 51,24 

610 P=3;PRINT " HOLE < 4 PAR 3*;FQR 
PT=1 TO NPsPRINT Z$(PTtl0-9,PT*10);“’ 

S TURN":B1=INT!RND(0)48)+20 
615 S=1:B2=32:CP=1:HP1=43:HP2=19:GOSUB 
100 

620 IF RC=2 THEN S=S+1:CP=1:GOSUB 100: 
GOTO 620 

630 IF RC=1 THEN NEXT PT;GOTO 700 
640 GOSUB 3000 

650 IF D2=4 OR D2=12 OR D2=37 OR (D2=3 

3 AND D1 >44 AND DK55) OR (D2=14 AND D 
1>36) THEN 654 

652 GOTO 656 

654 H2=-H2:GOSUB 200:GOTO 620 

656 IF Dl=20 OR Dl=49 OR Dl=51 OR Dl=6 

4 OR Dl=36 THEN H1H11:GOSUB 200:GOTO 
620 

658 IF (Dl>56 AND D2<13) OR (D2>24 AND 
Dl<57) THEN A=H1:HI=M2*2:H2=A/2:GOSUB 
200:GOTO 620 

659 A=Hl:Hl=-N2t2:H2=-A/2 

660 GOSUB 200:GOTO 620 

700 GOSUB 40:COLOR 2:F0R A=25 TO 36:PL 
OT 41,A:DRAHTO 55,A:NEXT AsFOR A=1 TO 
9:PLOT 33-A,25-A:DRAHTO 55,25-A 
702 PLOT 24+A,11-As DRAHTO 55-A,11-A:NE 
XT A:FOR A=1 TO 5:PLOT 24,16-A:DRAHTO 
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55,16-A:NEXT A 

704 COLOR 1:FOR A=1 TO 2sPLOT 55,25-A: 
DRAHTO 45,15-A:NEXT A 
710 PRINT " HOLE # 5 PAR 2 B -.P=2-.F0R 
PT=1 TO NP:S=1:PRINT Z$<PT*10-9,PT*10 
);“’S TURN":CP=1 

715 81=INT(RND(0)t8)+43:B2=33:HPl=33:H 
P2=13:G0SUB 100 

720 IF RC=2 THEN S=S+1 :CP=1 :GQSUB 100*. 
GOTO 720 

730 IF RC=1 THEN NEXT PTsBOTO 800 
740 GQSUB 3000 

750 IF D2=l OR D2=37 OR (02=25 AND Dl< 
41) THEN H2=-H2:GQSUB 200:G0T0 720 
752 IF 01=23 OR 01=40 OR 01=56 THEN HI 
=-Ml:GOSUB 200:GDT0 720 

754 IF DK40 AND D2<11 THEN A=Hl!Hl=-H 
2*2:H2=-A/2:GQSUB 200:GOTO 720 
756 A=N1:H1=H2*2:H2=A/2:GQSUB 200:G0T0 
720 

800 GOSUB 40:COLOR 2:F0R A=25 TO 36:PL 
OT 31,A:DRAHTO 45,A:NEXT A:FOR A=1 TO 
11:PLOT 31,25-A:DRAHTO 51+A,25-A 

801 NEXT A 

802 FOR A=2 TO 13:PL0T 31,A:DRAHTO 62, 
A:NEXT A:COLOR 1:F0R A=1 TO 2:PLOT 30+ 
A,24:DRAHTO 39+A,15:NEXT A 

804 PLOT 41,15:DRAHTO 41,10:PL0T 49,10 
:DRAHTO 49,4 

810 PRINT " HOLE » 6 PAR 5 ":P=3:F0R 
PT=1 TO NP:S=1:PRINT Z*<PT*10-9,PT*10 
);"’S TURN" 

815 B1=INT(RND(0)*8)+34:B2=33:HP1=35:H 
P2=13:CP=1:G0SUB 100 
820 IF RC=2 THEN S=S+1:CP=1:GOSUB 100: 
GOTO 820 

830 IF RC=1 THEN NEXT PT:GOTQ 900 
840 GOSUB 3000 

850 IF D2=5 OR D2=l OR D2=37 OR (D2=25 
AND Dl>45) OR f(D2=10) AND (Dl=41 OR 
Dl=49)) THEN H2=-H2:GOSUB 200:GOTO 820 
852 IF Dl=30 OR Dl=46 OR Dl=63 OR Dl=4 
9 OR (Dl=41 AND D2<=16) THEN N1=-N1:G0 
SUB 200:G0T0 820 

854 A=N1:N1=-H2*2:H2=-A/2:G0SUB 200:60 
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TO 820 

900 GOSUB 40:COLOR 2:F0R A=1 TO 9:PLQT 
25-A,37-A:DRAHTO 54,37-A:PL0T 15+A,17 
-A:DRAHTO 51-A,17-AsHEXT A 
902 FOR A=21 TO 27:PLOT 16,A:DRAHT0 54 
,A:NEXT A:FOR A=1 TO 4:PL0T 16,16+A:DR 
AHTO 50+A,16+A:NEXT A 
904 COLOR 1:PL0T 38,li:DRAHT0 50,23:PL 

OT 38,16:DRAHTO 45,23:PL0T 26,27:DRAHT 
0 38,27 

906 PLOT 39,27:DRAHTO 39,36 
910 PRINT " HOLE » 7 PAR 3":P=3:FPR 
PT=1 TO NP:S=1:PRINT Z*(PT*10-9,PTtl0 
);"’S TURN" 

915 B1=INT(RND(0)I8)+44:B2=33:HP1=33:H 
P2=32:CP=1:G0SUB 100 
920 IF RC=2 THEN S=S+1:CP=1:GOSUB 100: 
GOTO 920 

930 IF RC=1 THEN NEXT PT:GOTO 1000 
940 GOSUB 3000 

950 IF Dl=15 OR Dl=55 OR (Dl=39 AND D2 
>26) THEN H1=-M1:GQSUB 200:60T0 920 

952 IF D2=37 DR D2=7 OR D2=27 THEN H2= 
-H2:GOSUB 200:GOTO 920 
954 IF DK25 AND D2<17 THEN A=N1:N1=-N 
2*2:M2=-A/2:GQSUB 200:G0T0 920 
956 A=Hl:M=N2*2:M2=A/2: GOSUB 200:GOTO 
920 

1000 GOSUB 40:COLOR 2:FQR A=27 TO 36:P 
LOT 29,A:DRAHTO 43,A:NEXT A:FOR A=1 TO 
8:PLOT 29-A,27-A:DRAHTO 43+A,27-A 

1002 PLOT 21,19-A:DRAHTO 52,19-A:PL0T 
21+A,11-A:DRAHT0 52-A,11-A:NEXT A 
1004 COLOR 1:PL0T 30,11:DRAHT0 33,14:0 
RAHTO 33,21:DRAHTO 36,24:PLOT 37,24:DR 
AHTO 40,21:DRAHTO 40,14:DRAHTO 43,11 
1010 PRINT " HOLE » 8 PAR 5 ":P=3:FP 
R PT=1 TO NP:S=1:PRINT Z*(PT*10-9,PT*1 
0 ) 

1015 B1=INT(RND(0)18+32):B2=33:HP1=36: 
HP2=17:CP=1:G0SUB 100 
1020 IF RC=2 THEN S=S+1:CP=1:GOSUB 100 
:GOTO 1020 

1030 IF RC=1 THEN NEXT PT:GQTO 1100 
1040 GOSUB 3000 
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1050 IF D2=37 OR D2=2 THEN t12=-H2:GGSU 
B 200iGOTO 1020 

1051 IF Dl=33 OR Dl=40 THEN IF D2=21 0 
R D2=14 THEN 1054 

1052 IF Dl=20 OR Dl=53 OR Dl=33 OR Dl= 
40 OR Dl=28 OR Dl=44 THEN Ht=-Hls60SUB 
20O:GOTO 1020 

1054 IF <D1>43 AND D2>18) OR (Dl<30 AN 
D D2< 11) OR IDD36 AND DK44) THEN A=H 
lsHl=-H2*2:H2=-A/2:B0SUB 2O0:GOTO 1020 
1056 A=Hi:M1=M2*2:H2=A/2:GDSUB 200 
1060 GOTO 1020 

1100 GOSUB 40:COLOR 2:F0R A=27 TO 36:P 
LOT 29,AsDRAWTO 43,A:NEXT A:FOR A=3 TO 
27:PLOT 20,A:DRAHTD 52,A:NEXT A 
1102 COLOR 1sPLQT 34,10:DRAHT0 31,13:P 
LOT 39,10:DRA»T0 42,13:PL0T 27,14:DRAH 
TO 35,22:PLOT 38,22:DRA«TQ 46,14 
1110 PRINT " HOLE » 9 PAR 4 »:P*4:FQ 
R PT=1 TO NP:S=1:PRINT ZI(PTI10-9,PT*1 
0); B ’S TURN" 

1115 B1=INT(RND(0)18+32):B2=33:HP1=36: 
HP2=17:CP=1:G0SUB 100 
1120 IF RC=2 THEN S=S+1:CP=1;GOSUB 100 
:60T0 1120 

1130 IF RC=1 THEN NEXT PTsGOTO 2000 
1140 GOSUB 3000 


1150 IF D2=37 OR D2=2 OR D2=28 THEN H2 
=-H2:GOSUB 200:GOTO 1120 
1152 IF Dl=19 OR Dl=53 OR (fDl=28 OR D 
1=44) AND D2>26) THEN H1=-H1:G0SUB 200 
:GOTO 1120 

1154 IF (Dl>37 AND D2>13) OR (DK36 AN 
D D2<14) THEN A=H1:H1=-H2*2:M2=-A/2:G0 
SUB 200:GOTO 1120 

1156 A=Hl:Hl=H2t2:H2=A/2:60SUB 200 
1160 GOTO 1120 

2000 GRAPHICS 0:PRINT " FINAL SCORE 
: B :PRINT :PRINT " PLAYER SCORE":PR 

int b -" 

2005 FOR A=1 TO NP:PRINT Zt<AtlO-9,Atl 

0),-“ : “;S(A):NEXT A 

2010 PRINT SPRINT "PLAY AGAIN iY/N)"; 

2020 GOSUB 3000:A=PEEK(764):IF A<>43 A 

ND A<>35 THEN 2020 

2030 IF A=43 THEN RUN 

2040 PRINT SPRINT SPRINT " GOOD BYE. 'sC 

LOSE #1:END 

3000 SOUND 0,50,10,10 

3005 HH=HH-10:IF HH<2 AND HH>-6 THEN H 

H=2 

3010 SOUND 0,200,10,10 
3020 SOUND 0,0,0,0:RETURN 
9999 END 
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FLIP-IT 


by Michael Prescott 
Atari version by Alan J. Zett 


Flip-It is an Atari program requiring 
24K RAM. 

Flip-It is a computerized board 
game, in which you and the computer 
match wits trying to outflank and cap¬ 
ture one another’s pieces on an eight- 
by-eight board. The computer is a for¬ 
midable opponent, and you won’t find 
it a trivial matter to win. 

The game begins with a square ar¬ 
rangement of four chips in the center 
of the board, two belonging to you and 
two belonging to the computer. You 
are allowed to choose your color and 
who will play first. When it is your 
turn, your object is to pick an unoc¬ 
cupied square such that putting one of 
your chips there will “outflank” one 
or more of the computer’s chips. This 
means that the computer’s chips would 
be sandwiched in between one of your 
existing chips and the new one you’re 
playing, in a straight line. (You might 
think of it as your chips being 
bookends at each end of a row of your 
opponent’s pieces.) 

When you do this, all the computer’s 
pieces which you have outflanked will 
become yours. This can happen in 
more than one direction, so that in any 
given turn you might capture pieces 
horizontally, vertically, and diagonal¬ 
ly. This can result in a substantial shift 
in the relative number of chips in one 
turn, and the outcome of the game is 
rarely certain until the last few moves. 
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Use the joystick to move the cursor 
horizontally, vertically, or diagonally 
from its current location, and press the 
button to enter the move. The com¬ 
puter always checks to see that your 
move is legal, and allows no cheating. 

During your turn, you may ask the 
computer to recommend your best 
move by pressing “B.” If you see no 
move that you can make, you must 
press “N”; the computer will then 
check to see if you really have no pos¬ 
sible move; if so, it will continue with 
its play. (Before pressing “B” or “N,” 
you should move the cursor to an 
already occupied square.) If the com¬ 
puter has no move, it will pass after 
searching all the open squares. If 
neither of you has any possible move 
(which occasionally happens even 
before the board is filled), then the 
game is over and the player with the 
greater number of chips is the winner. 
You may also press “Q” to quit at any 
time. 

You will soon find that winning a 
game involves more than just capturing 
as many pieces as you can on any given 
turn. Much more important to the 
eventual results will be the position of 
your chips on the board. Capturing 
edge and (especially) corner squares, 
and preventing the computer from 
doing the same will pay off in the long 
run, even if it means outflanking only 
one square when you could get more 
elsewhere on the board. 
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Variables 

A(*): Decision-making array for com¬ 
puter’s moves. 

A$: Data manipulator. 

B: Decision pointer. 

C: Capture pointer. 

CHIP: On-the-fly token. 

COLR: Sampler variable. 

COMMD: Key input variable 
D: Loop variable. 

IP: “I pass” flag. 

OC: Token for computer’s chip. 
OPPONENT: Color of computer’s 
chips. 


ss 

nr- r-r- 
dj 00 

ss 

SS SS SS 

SS 

SS SS 

SS 

ec 

UtJ 






ss 

SS 



Atari BASI 

c 


liu 

CO 

Ju 



Tiip-It' 



nr* 

DO 

ss 

Author; 

Hich^el P 

rsscott 

SS 

ss 

Tran 

d 3 

u 

for; Alar? 

L 

Zett 

ss 

QQ 

w w 

C< 

30 V 

; i 

right (c? 

i OOO 

SS 

SS 

SoftSide 

i Publicati 

on 

- Inf* 

-r \ tilt. 

oe 

uf»J 

S3 






qo 

OvJ 

SS 

•-* \J 

ee eq cq eq 

v? t? O u -3 vf O 

SS 

qc- oe 

OiJ 

nr- 

00 


Initialization. 

100 GRAPHICS 0;DIH A(60),At(120):Z=l:G 
OSUB 6020:FOR X=1 TO LEN(At) STEP 2:PD 
L=0:B=0:FL=0 

110 A<Z)=ASC(A$(X,X))-48+1ASC(A*<X+1,X 
+1))-48)I10:Z=Z+1:NEXT X:GQSUB SOOOsOP 
EN #l ) 4,0, a K':PDL=0:B=0:F=0 
120 POKE 764,255:B=C=D:P2=4:SY=2 

Graphic introduction. 

150 GRAPHICS 5sSETC0LDR 2,0,0:SETC0L0R 
4,0,0 

160 FOR Y=0 TO 14 STEP 3:F0R D=0 TO 33 
STEP 0.2:S0UND 0,D,12,4:NEXT D:S0UND 
0,0,0,4:IF (Y/2)=INT(Y/2) THEN 180 
170 COLOR 2:SETC0L0R 1,Y,4:F0R X=12 TO 
39:PLOT X,0:DRAWT0 X,3B:PL0T 78-X,0:D 
RAHT0 78-X,38:NEXT X:G0T0 190 
180 COLOR 1:SETC0L0R 0,Y,4:F0R X=0 TO 
19:PLOT 12,X:DRAWTG 66,X:PL0T 12,38-X: 
DRAWTQ 66,38-X:NEXT X 


PI: Number of chips captured. 

P2: Number of chips on board. 

P4: Sum of chips captured. 

Q: Substitution variable. 

RESTART: Re-entry line number. 

SY: Number of your chips on board. 

X, Y,Z: Loop variables. 

XI, Yl: Point under consideration. 
X2,X3: Check loop variables. 

XX,YY: Plot variables. 

XXX: Capture loop variable. 

YC: Token for your chip. 

YOUR: Color of your chips. 

YP: ‘‘You pass” flag. 


190 NEXT Y:SOUND 0,0,0,0:C0LQR 0:FQR X 
=1 TO 7:PLOT 7IX+11,0:DRAWT0 7tX+ll,39 
:PL0T 12,5*X-1:DRAHT0 67,5*X-1:NEXT X 

Get color choice, and clear portion of 
memory that keeps track of game 
progress. 

200 SETC0L0R 1,0,10:PRINT CHR$(125)j B « 
HICH COLOR (RED/ BLUE! ";:TRAP 200:INP 
UT A$:IF Aid, 1)<>"R" THEN 210 
205 Y0UR=2:0PP0NENT=3:G0TQ 230 
210 YOUR=3:OPPONENT=2 
230 XX=14:YY=2:C0LR=1 

Prompt for type of game set-up, and 
choose who goes first. 


240 PRINT CHRt(125)?“WANT TO GO FIRST" 

}:TRAP 240:INPUT At 

245 IF At(l,l)="Y" THEN F=i 

250 PRINT CHR$4125)|"WANT TO SET UP Y0 

UR OWN SANE"TRAP 250:INPUT At 

255 IF Atd,l)="Y" THEN SETC0L0R 4,0,4 

: SETC0L0R 0,1,2:GOTO 4000 

260 TRAP 33333:G0SUB 6000:GOTO 600 

300 ST=STICK(0) 

310 IF ST=15 THEN ST=0 
320 IF ST=14 AND PDL>7 THEN PDL=PDL-8 
330 IF ST=13 AND PDL<56 THEN PDL=PDL+8 
340 IF ST=11 AND PDL>0 THEN PDL=PDL-1 
350 IF ST=10 AND PDL>8 THEN PDL=PDL-9 
360 IF ST=9 AND PDL<56 THEN PDL=PDL+7 
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370 IF ST=7 AND PDL<63 THEN PDL=PDL+1 
380 IF ST=6 AND PDL>7 THEN PDL=PDL-7 
390 IF ST=5 AND PDL(55 THEN PDL=PDL+9 
400 RETURN 

Set up new game. 

600 COLOR 3s X=45:60SUB 1160:X=54sG0SUB 
1160:COLOR 2:X=44:G0SUB 1160:X=55s60S 
UB 1160 

610 POKE 764,255 
620 IF F=0 THEN 840 

End if board is filled, otherwise update 
the chip-selector cursor. 

630 IF P2=64 THEN 2010 
632 G0SUB 7000 


Get command, or update the chip- 
selector cursor. 

640 IF PEEK(764)=255 THEN BOO 

645 C0=PEEK(764);P0KE 764,255sIF CQ<>4 

7 AND C0O35 AND C0O21 THEN 800 

650 IF C0=47 THEN 2012 

652 IF 00=35 THEN 680 

654 GOSUB 700:GOTO 800 

No-possible-move command. 

680 GOSUB 700s IF YP=1 THEN 840 

682 SOUND 0,255,12,15:F0R X=1 TO 150:N 

EXT X:SOUND 0,0,0,0:GQT0 800 

Find best move. 


700 FL=l:Q=VOURsYOUR=OPPONENTsOPPONENT 
=0:GOSUB 2000s IF YP=1 THEN 710 
702 FOR XXX=1 TO 20:IF <XXX-INT(XXX/2) 
12)=0 THEN COLOR 0 

704 IF (XXX-INT (XXX/2) 12)00 THEN COLO 
R 1 

706 IF (XXX-INT(XXX/5) 15)00 THEN GOSU 
B 1160 

708 NEXT XXX 


710 Q=Y0URs Y0UR=0PPDNEMTs OPPONENTS: FL 
=0:RETURN 

800 GOSUB 300:IF A=PDL THEN 810 
802 A=PDL:COLOR COLRsPLOT XX,YY:COLOR 
0:XX=7MA-INT(A/8>*8>+14:YY=INT(A/8)*5 
+2 

Position and display player’s move. 

804 LOCATE XX,YY-1,COLRsPLOT XX,YY 

810 IF STRI6(0)=1 THEN 640 

812 IF COLROl THEN 640 

820 P3=SY:COLOR YOUR:P4=0sD=0sFOR XXX= 

I TO 8:X=(A-INT(A/8)l8)+l+10t(INT(A/8) 
+1):P1=0:G0SUB 980+XXX120 
822 P4=P4+P1: IF PlOO THEN D=D+1 
830 NEXT XXX:IF D=0 THEN 640 
832 SY=SY+P4-D+1:P2=P2+1 

Do computer’s move. 

840 GOSUB 7000:60SUB 2000:F0R XXX=t TO 
42:IF <XXX-INT(XXX/2)*2)=0 THEN COLOR 
0 . 

842 IF (XXX-INT (XXX/2) 12)00 THEN COLO 
R 1 

844 IF (XXX-INT(XXX/3)t3)=0 THEN GOSUB 
1160 

846 NEXT XXX:COLOR OPPONENT 

900 P2=P2+1:fi=Y0UR:Y0UR=0PP0NENT:OPPON 

ENT=Q:P4=0:D=0:FOR XXX=1 TO 8:X=A!B):P 

1=0:GOSUB 980+20IXXX 

905 IF PlOO THEN D=D+1:P4=P4+P1 

910 NEXT XXX:SY=SY-P4+D 

920 8=YQUR;YOUR=OPPONENT:0PP0NENT=8:L0 

CATE XX,YY-1,COLR:GOTO 630 

Capture routine. 

1000 Xl=7MX-INT(X/10m0)+7:Yl=INT(X/ 
10)I5-3:F0R X2=l TO 7:Y1=Y1-5:IF YKO 
THEN RETURN 

1005 LOCATE X1,Y1,Z:IF Z=Y0UR AND X2=l 
OR Z=1 THEN RETURN 
1010 IF Z=0PP0NENT THEN NEXT X2 
1012 IF X2=8 THEN RETURN 
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1014 GQSUB 1160iPl=X2sFOR X3=l TO X2:X 
=X-10:B0SUB ll&OsNEXT X3iRETURN 
1020 X1=7* tX-IHTtX/10)tlO)+7sV1=INT(X/ 
10)*5-3:FDR X2=l TO 7:Yl=¥l+5sIF Yl>38 
THEN RETURN 

1025 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=J 
OR Z=1 THEN RETURN 
1030 IF ZOPPONENT THEN NEXT X2 
1032 IF X2=8 THEN RETURN 
1034 GOSUB 1160:P1=X2:F0R X3=l TO X2-.X 
=X*10:6QSUB 1160:NEXT X3:RETURN 

1040 Xl=7*(X-INT<X/10)1101+7:Y1=INT(X/ 
10)*5-3:F0R X2=l TO 7:X1=X1-7:IF XK12 
THEN RETURN 

1045 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=l 
OR Z=1 THEN RETURN 
1050 IF Z=OPPQNENT THEN NEXT X2 
1052 IF X2=8 THEN RETURN 
1054 GOSUB 116Q:Pl=X2iFDR X3=l TO X2:X 
=X-1:GOSUB 1160:NEXT X3:RETURN 
1060 X1=7I(X-INT(X/10)I10)+7:Y1=INT(X/ 
10)*5-3:F0R X2=l TO 7:X1=XK7:IF Xl>66 
THEN RETURN 

1065 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=i 
OR Z=1 THEN RETURN 
1070 IF Z=QPPONENT THEN NEXT X2 
1072 IF X2=8 THEN RETURN 
1074 GOSUB 1160:P1=X2:FOR X3=l TO X2:X 
=X+1:GQSUB 1160:NEXT X3:RETURN 
1080 X1=7*(X-INT(X/10)»10)+7:Y1=INT(X/ 
10)*5-3:FOR X2=l TO 7:Xl=Xl-7:Yl=Yl-5: 
IF X 1< 12 OR YKO THEN RETURN 
1085 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=l 
OR Z=1 THEN RETURN 
1090 IF Z=OPPONENT THEN NEXT X2 
1092 IF X2=8 THEN RETURN 
1094 GOSUB 1160:P1=X2:F0R X3=l TO X2:X 
=X-11:GOSUB 1160:NEXT X3:RETURN 
1100 X1=7*<X-INT<X/10)*10)+7:Y1=INT(X/ 
10)*5-3:F0R X2=l TO 7:Xl=Xl+7:Yl=Yl-5: 
IF XI >66 OR YKO THEN RETURN 
1105 LOCATE XI,Yl,Z:IF Z=YOUR AND X2=l 
OR Z=1 THEN RETURN 
1110 IF Z=OPPDNENT THEN NEXT X2 
1112 IF X2=8 THEN RETURN 


1114 GOSUB 1160:Pl=X2sF0R X3=l TO X2:X 
=X-9:GOSUB 1160:NEXT X3:RETURN 
1120 X1=7I(X-INT(X/10)*10)+7:Y1=INHX/ 
10)*5-3:F0R X2=l TO 7:Xl=Xl+7:Yl=YI+5: 
IF XI>66 OR Yl>38 THEN RETURN 
1125 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=l 
OR Z=1 THEN RETURN 
1130 IF Z=OPPONENT THEN NEXT X2 
1132 IF X2=8 THEN RETURN 
1134 GOSUB 1160:P1=X2:FOR X3=l TO X2:X 
=X+11:GOSUB 1160:NEXT X3:RETURN 
1140 Xl=7t(X-INT(X/10)M)+7:Yl=INT(X/ 
10)*5-3:F0R X2=l TO 7:Xl=Xl-7:Yl=Yl+5: 
IF XK12 OR ¥1 >38 THEN RETURN 
1145 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=l 
OR Z=1 THEN RETURN 
1150 IF ZOPPONENT THEN NEXT X2 
1152 IF X2=8 THEN RETURN 
1154 GOSUB l!60:Pi=X2:FQR X3=! TO X2:X 
=X+9:GOSUB 1160:NEXT X3:RETURN 

Draw chip at selected location. 

1160 X1=74(X-INT(X/10)*10)+5:Y1=INT(X/ 

10)*5-5:F0R X1=X1 TO X1+5:PL0T X1,Y1:D 

RAWTO X1,Y1+3:NEXT XI 

1165 FOR Z=1 TO 6:POKE 53279,0:NEXT Z: 

RETURN 

Step through the best moves for the 
computer. If none are found, then pass 
or concede game. 


2000 POKE 77,0:IF P2-SY=0 OR SY=0 THEN 
2010 

2001 IF FL=0 THEN IP=0 

2002 IF FL=1 THEN YP=0 

2003 FOR B=1 TO 60:X=A(B):Xl=7*(X-INT( 
X/10)*10)+7:Y1=INT(X/10)*5-3:P0KE 5327 
9,0:POKE 53279,OiLOCATE X1,Y1,Z 

2004 IF Z=1 THEN GOSUB 3000 

2005 NEXT B: IF P2-SYOO AND SYOO AND 
FL=0 AND YP=0 THEN 2008 

2006 IF P2-SYOO AND SYOO AND FL=1 AN 
D IP=0 THEN YP=1:RETURN 
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2007 BOTO 2010 

2008 IP=1:F0R ST=170 TO 220:S0UND 0,ST 
,10,10:NEXT ST:SOUND 0,0,0,0:6010 630 
2010 FOR 7=0 TO 200:SQUND 0,X,12,6:NEX 
T X:SOUND 0,0,0,0:PRINT "NO POSSIBLE H 
OVES LEFT!"?:FOR 7=1 TO 300:NEXT 7 
2012 POKE 752,1:IF P2-SY)SY THEN 2030 
2014 IF P2-SY=SY THEN 2040 

2020 PRINT .-PRINT 'YOU NON THIS ROUND 
BY ";2*SY-P2; B CHIPS.";:6QT0 2050 
2030 ? :? "I ONCE AGAIN PROVE NY SUPER 
IORITY!:FOR X=1 TO 300:NEXT 7:? :? * 
I NON BY “;P2-2*SY-," CHIPS.'; 

2032 BOTO 2050 

2040 ? :? "IT’S A BRAN! I’LL BEAT YOU 
NEXT TIHE!! B j 

2050 FOR X=1 TO 20:PQKE 53279,OsNEXT X 
:FOR 7=1 TO 300:NEXT XsPRINT :PRINT “N 
ANT TO PLAY AGAIN?",-:POKE 764,255 
2060 CQ=PEEK(764):IF 00=255 THEN 2060 
2062 IF 00=43 THEN POKE 764,255:RUN 
2064 POKE 764,255:? :? 'OK. SEE YOU LA 
TER!":PRINT :END 

The computer has found an empty 
square; now check to see if it is a legal 
move. 

3000 FOR C=1 TO 8:Xl=7MX-INT(X/10m0 
)+6:Y1=INT<X/10)15-3:POKE 53279,0:POKE 
53279,0:B0SUB 2990+20*0:NEXT CtRETURN 

Check legality of computer’s moves (up- 
left, up-right, etc.). If it is a legal move, 
then jump out of loop, and do capture. 

3010 FOR D=1 TO 7:Yl=Yl+5:IF Yl>38 THE 
N RETURN 

3012 LOCATE X1,Y1,Z:IF Z=1 OR Z=0PP0NE 
NT AND D=1 THEN RETURN 
3014 IF Z=Y0UR THEN NEXT D 
3020 IF D=8 THEN RETURN 
3022 POP :P0P :P0P :P0P :P0P :BOTO 515 
0 

3030 FOR D=1 TO 7:Y1=Y1-5:IF Y1<0 THEN 
RETURN 


3032 LOCATE 71,Y1,Z:IF Z=1 OR Z=0PPONE 
NT AND D=1 THEN RETURN 
3034 IF Z=YQUR THEN NEXT D 
3040 IF D=B THEN RETURN 
3042 POP :P0P :PQP :P0P :P0P :80T0 515 
0 

3050 FOR D=1 TO 7:X1=X1-7:IF Xl<12 THE 
N RETURN 

3052 LOCATE X1,Y1,Z:IF Z=1 OR Z=QPP0NE 
NT AND D=1 THEN RETURN 
3054 IF Z=YQUR THEN NEXT D 
3060 IF D=8 THEN RETURN 
3062 POP :POP :P0P :P0P :P0P :G0TQ 515 
0 

3070 FOR D=1 TO 7:X1=X1+7:IF Xl>66 THE 
N RETURN 

3072 LOCATE X1,Y1,Z:IF Z=1 OR Z=0PP0NE 
NT AND D=1 THEN RETURN 
3074 IF Z=Y0UR THEN NEXT D 
3080 IF D=8 THEN RETURN 
3082 POP ;P0P :P0P :P0P :P0P :G0T0 515 
0 

3090 FOR D=1 TO 7:X1=X1+7:Yl=Yl+5:IF X 
1)66 OR Y1>38 THEN RETURN 
3092 LOCATE X1,Y1,Z:IF Z=1 OR Z=0PP0NE 
NT AND D=1 THEN RETURN 
3094 IF Z=YQUR THEN NEXT D 
3100 IF D=B THEN RETURN 
3102 POP :POP :P0P :P0P :P0P :GOTO 515 
0 

3110 FOR D=1 TO 7:Xl=Xl-7:Yl=Yl+5:IF X 
1<12 OR Y1>38 THEN RETURN 
3112 LOCATE X1,Y1,Z:IF Z=1 OR Z=0PP0NE 
NT AND D=1 THEN RETURN 
3114 IF Z=Y0UR THEN NEXT D 
3120 IF D=8 THEN RETURN 
3122 POP :POP :POP :POP :POP :B0T0 515 
0 

3130 FOR D=1 TO 7:Xl=Xl-7:Yl=Yl-5;IF X 
K12 OR YKO THEN RETURN 
3132 LOCATE X1,Y1,Z:IF Z=1 OR Z=OPPONE 
NT AND D=1 THEN RETURN 
3134 IF Z=YOUR THEN NEXT D 
3140 IF D=8 THEN RETURN 
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3142 POP iPOP :P0P sPOP -.POP -.GOTO 515 
0 

3150 FOR D=1 TO 7:X1=X1+7:Y1=Y1-5:IF X 

1 >66 OR YKO THEN RETURN 

3152 LOCATE X1,Y1,Z:IF Z=1 OR Z=OPPQNE 
NT AND D=1 THEN RETURN 
3154 IF Z=YQUR THEN NEXT D 
3160 IF D=B THEN RETURN 
3162 POP sPOP :POP sPOP sPOP :GOTO 515 
0 

Set up an old game. 

4000 TRAP 33333s? CHR*(125);"HO“ DO YO 
U WANT TO SET IT UP?":? "1 - REGULAR, 

2 - MANUAL":POKE 752,1:P2=0:SY=0 
4010 GET #1,CQ:IF C0<49 OR CG>50 THEN 
4010 

4020 POKE 764,255:IF C0=49 THEN 4250 

4050 PRINT CHR$(125);“PRESS <ESC> WHEN 
FINISHED 11 sPRINT "USE BUTTON TO SELECT 
SQUARE":POKE 752,1 

4060 SOSUB 300:A=PDL:COLOR COLR:PLOT X 
X,YY:COLOR 0:XX=7*<A-INT(A/8)*8)+15:YY 
=INT<A/8)*5+2 

4062 LOCATE XX,YY-1,CDLR:PLOT XX,YY 
4070 IF PEEK(764)=255 THEN 4080 
4072 C0=PEEK(764):P0KE 764,255:IF C0=2 
8 THEN 4160 

4080 IF STRIG(0)=1 THEN 4060 

4082 PRINT CHRt(125); 

4090 PRINT "WHICH COLOR (R/B) ";:GET # 
1,ST:IF ST<>82 AND ST<>66 THEN 4082 
4092 X= i (A-INT(A/8) 18)+1)+(104(INT(A/8 
) +1 ) > 

4100 COLOR 3:IF ST=82 THEN COLOR 2 
4102 GOSUB 4240:Y1=Y1+1:B=0:IF Xl>18 T 
HEN LOCATE X1-7,Y1,Z:B=B+(Z<>1) 

4110 IF XK60 THEN LOCATE X1+7,Y1,Z:B= 
B+(Z<>1) 

4112 IF Yl>4 THEN LOCATE X1,Y1-5,Z:B=B 
+ (Z<)1) 

4114 IF YK34 THEN LOCATE X1,Y1+5,Z:B= 
B+(Z<>1) 


4120 IF XI>18 AND Yl>4 THEN LOCATE XI- 
7,Y1-5,Z:B=B+(Z<>1) 

4122 IF XI>18 AND Yl<34 THEN LOCATE XI 
-7,Y1+5,Z:B=B+(Z<>1) 

4130 IF XK60 AND Yl>4 THEN LOCATE X1+ 
7,Yl-5,Z:B=B+(Z< >1) 

4132 IF XK60 AND Yl<34 THEN LOCATE XI 
+7,Y1+5,Z:B=B+(Z<>1) 

4134 IF B=0 THEN 4150 

4140 GOSUB 1160:P2=P2+1:LOCATE XX,YY-1 

,CQLR:GOTO 4050 

4150 IF P2=0 THEN 4140 

4152 GOSUB 4220:PRINT "YOU'RE MAKING U 

P THIS GAME! A PIECE COULDN'T BE THE 

RE>“:FOR X=1 TO 300:NEXT XsGOTO 4050 

4160 X=44:GQSUB 4240:Y1=Y1+1:LOCATE XI 

,Yl,Z:IF Z=1 THEN 4230 

4162 X=45:GOSUB 4240:Y1=Y1+1:L0CATE XI 

.Yl,Z:IF Z=1 THEN 4230 

4170 X=54:60SUB 4240:Y1=Y1+1:L0CATE XI 

,¥1,Z:IF Z=1 THEN 4230 

4172 X=S5:GOSUB 4240:Y1=Y1+1:LOCATE XI 

,Yl,Z:IF Z=1 THEN 4230 

4174 P2=0:FOR Y=1 TO 8:F0R A=1 TO 8 

4180 X=10*Y+A:GOSUB 4240:Y1=Y1+1;X1=X1 

+1:LOCATE X1,Y1,Z:IF Z=1 THEN 4190 

4182 P2=P2+1:IF Z=YOUR THEN SY=SY+1 

4190 NEXT AsNEXT Y:IF P2-SY=0 OR SY=0 

THEN 4200 

4192 IF P2=64 THEN 4210 

4194 LOCATE XX,YY-1,Z:COLOR Z.-GOSUB 60 

00:GOTO 610 

4200 GOSUB 4220:? CHR$(125);"Y0U HAVE 
TO GIVE ME A CHANCE! H :P2=0:SY=0:FOR X= 

1 TO 300:NEXT XsGOTO 4050 

4210 GOSUB 4220:? CHR*(125);"YOU DIDN’ 

T LEAVE ANY ROOM!":FOR X=1 TO 300:NEXT 
XsGOTO 4050 

4220 PRINT CHRf(125!;:F0R X=1 TO 200:P 
OKE 53279,OsNEXT X:RETURN 
4230 GOSUB 4220:? CHR$U25);“THE CENTR 
AL SQUARES MUST BE FILLED!":FOR X=1 TO 
300:NEXT XsGOTO 4050 
4240 X1=74(X-INT«X/10)410)+7:Y1=INT(X/ 
10)t5-3:RETURN 
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4250 60SUB 6000sP2=4sSY=2:60T0 600 
Print instructions for game. 


5000 POSITION 2,12sPRINT "NEED INSTRUC 
TI0NS"|STRAP 5000sINPUT A*sIF A*(l,l)< 
>"Y" THEN RETURN 

5010 GRAPHICS OsPOKE 752,1sPOSITION 14 
,2sPRINT 11 FLIP-IT S PRINT sPRINT * 

THE OBJECT OF THIS BAKE IS TO" 

5020 PRINT "COHPLETELY FILL THE BOARD 
KITH AS HANY PIECES OF YOUR COLOR 
AS YOU CAN.* 

5030 PRINT "TO DO THIS YOU HUST OUTFLA 
NK YOUR OPPONENT’S PIECES AND FLIP 

THEH TO" 

5040 PRINT "YOUR COLOR. OUTFLANKING CA 
N OCCUR HORIZONTALLY, VERTICALLY, 

OR DIA6-" 

5050 PRINT “ONOLLY. THE GAHE ENDS WHEN 
THE BOARD IS FULL OR HHEN BOTH PLAYE 

RS CAN’T HOVE. "tPRINT 

5060 PRINT "HHOEVER HAS THE HOST PIECE 
S WINS. ".-POSITION 5,23:PRINT "(PRESS A 
NY KEY TO CONTINUE)"; 

5065 IF PEEK(764)=255 THEN 5065 
5070 POKE 764,255:GRAPHICS OsPOKE 752, 
IsPOSITION 2,2:PRINT "YOU HAKE HOVES B 
Y HAVING THE CURSOR" 

5080 PRINT “WITH THE JOYSTICK TO THE S 
QUARE YOU DESIRE AND PRESS FIRE°;PRI 
NT 

5090 PRINT "DURING THE GAHE YOUR CAN A 
LSO CHOOSE ONE OF THE OPTIONS BY PRES 


SING THE KEY INDICATED:":PRINT 
5100 PRINT *0 - TO QUIT THE 6AHE":PRIN 
T :PRINT "N - NOT ABLE TO HOVE":PRINT 
:PRINT "B - ASK FOR THE BEST HOVE" 

5110 POSITION 7,23:PRINT "(PRESS ANY K 
EY TO BEGIN)"; 

5130 IF PEEK(764)=255 THEN 5130 
5140 POKE 764,255 
5150 X=A(B):RETURN 

Color set-up routine. 


6000 TRAP 33333: GRAPHICS 5+48:SETCOLOR 
1,5,4:SETCOLOR 2,7,4:SETCOLOR 4,12,4: 
SETCOLOR 0,0,0:RETURN 

Data to set up square-choice priority for 
computer. 

6020 At="118118B83161138316863B6833633 
66641511484158548584353346435654656425 
224742575475732622373267637672171" 

6030 A$(LEN < A$ >+1)="128217872878227227 
77":RETURN 

Chip-count update. 

7000 COLOR OsPLOT 0,40:DRAHT0 79,40:PL 
OT 0,42:DRANT0 79,42 
7010 IF SY>0 THEN COLOR YOURsPLOT 12,4 
0:DRANTO SY+11,40 

7020 IF (P2-SY)>0 THEN COLOR OPPONENT: 
PLOT 12,42:DRAHTO (P2-SY)+11,42 
7030 RETURN 
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Battl efield 



by Joe Humphrey 
Atari version by Jon R. Voskuil 


Battlefield is an Atari game requiring 
16K RAM. 

“Battlefield” is a game of strategy for 
two players, in which the object is to 
overpower the opponent’s forces and 
capture squares on the playing board. 
The players both start out with 40 
squares on an eight-by-ten board, and 
alternate moving forces around the 
board to do battle with one another. 

At the beginning of the first player’s 
turn, new forces are added to each of 
the squares along the right and left 
edges of the board. The number of new 
forces that each player receives 
depends on how much territory he 
owns, how many edge squares he 
owns, and how crowded his edge 
squares are. No square may contain 
more than 99 forces. 

At the same time, each player’s 
Movement Allowance (M.A.) is in¬ 
creased, by an amount proportional to 
the territory he owns. The M.A. limits 
the amount of movement on each turn. 
For example, moving five forces 
through two squares, and then three 
other forces through six squares, uses 
up 5-times-2 plus 3-times-6, or 28, 
movement points. A player’s turn ends 
when he has exhausted his Movement 
Allowance or when he presses “E”. 
Unused M.A. is carried over to the 
next turn. 

Forces are moved using the number 
keys and four directional keys. The 


board display will show a pair of “#” 
symbols bracketing one of the squares; 
these constitute the “cursor.” The cur¬ 
sor can be moved up, left, right, or 
down by pressing I, J, K, or L (these 
keys form a diamond-shaped pattern 
for convenient right-hand use). To 
1 move forces, you position the cursor 
, on a square occupied by your forces, 
type in the number of forces you want 
to move, and then use the directional 
keys to move them. To leave some 
forces in a given square, just type “0” 
or backspace to cancel the current 
number of forces being moved. 

You can move your forces freely, in 
any direction, through your own ter¬ 
ritory. Once a group of forces crosses 
into enemy territory, however, they 
cannot move further during that turn. 
When a square is thus occupied by 
forces from both sides, a pair of letters 
I is shown in that square rather than a 
! number of forces. These letters show 
the relative number of forces in that 
square: The pair “YB” would show 
very unequal force strengths, while the 
pair “MM” would show equal forces 
I from both sides. At the end of each 
turn, battles are fought to the death in 
all such jointly-occupied squares, and 
the surviving forces of the winner then 
remain in the squares. 

These battles for individual squares 
are usually, but not always, won by the 
side with more forces in the square. 
Assume that the forces in a square are 
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15 of side A and 10 of side B. In the 
first round of the battle, there will be a 
10/(15 + 10), or 0.4, probability that 
one of A’s forces will be destroyed; at 
the same time there will be a 
15/(15 + 10), or 0.6, probability that 
one of B’s forces will be destroyed. At 
the end of the first round, then, the re¬ 
maining forces could be 15:10, 14:10, 
15:9, or 14:9. Assuming that the actual 
results are 15:9, the second round 
would be fought with new probabilities 
of 9/(15+ 9) and 15/(15 + 9), or 0.31 
and 0.69 respectively. Rounds continue 
in this fashion until one player’s forces 
are completely destroyed in that 
square. 

If you should want to reduce the size 
of the “Battlefield” playing board, to 
shorten and simplify the game, it’s 
easily done by changing line 70. NC is 
the number of columns and NR is 
the number of rows. 

Variables 

AR: Vertical tab location for Move¬ 
ment Allowance. 

B$: Black’s square marker. 

BC$: Background character (CU$ or 
SP$). 

BBLL$: Beeps the speaker. 

BL: Index to black player ( = 0). 

BS$: Backspace character, CHR$(8). 
CC: Cursor column. 

CHS: A character. 

CL$: Atari clear-screen character, 
CHR$(125). 

COL: A column on the board. 

CP: Controlling player in a square. 
CP(i,j): Controlling player in each 
square of array. 

CU$: Cursor character, “#”. 

D: Sound distortion number. 

DC: Change in column CC (-1,0, +1). 
DC(i): Change in column for each 
player. 

DF: Digit flag; = 1 if a digit was just 
typed. 

DR: Change in row CR. 

EC(i): End-of-line column for each 


}))))>)))) 


player. 

F: Boolean “false” value ( = 0). 

FR: Vertical tab or PRINT® position 
for number of forces. 

HC: Half of NC. 

IPL: Index to a player. 

IV: Value for printing normal ( = 0) 
or inverse (= 128) character. 

LC(i): Label column for each player. 
LP: Timing-loop counter. 

MA(i): Movement allowance for each 
player. 

MC: Maximum column index 
( = NC-1). 

MF(i): Maximum number of incom¬ 
ing forces per square for each player. 
MG: Maximum value of NG allowed. 
MR: Maximum row index ( = NR-1). 
NB: Number of black forces in a 
square. 

NC: Number of columns on board. 
NF: Number of forces to add to a 
square. 

NG: Number of forces in a moving 
group. 

NR: Number of rows on board. 

NS(i): Number of squares owned by 
each player. 

NW: Number of white forces in a 
square. 

PC: Player’s name column. 

PF: Previous value of DF. 

PL: Index to current player. 

PN$, PN1$, PN2$, PN$(i): Strings 
used for players’ names. 

PR: Player’s-name row. 

ROW: A row on the board. 

S: Flag for sound generation. 

SF: A square’s number of forces. 
SF(i,j), SF(i,j,k): Square’s forces in 
each square, for each player. 

SP$: Space character. 

SR: Vertical printing position for 
squares owned. 

T: Boolean “true” value (= 1). 

TF(i): Total forces for each player. 

V: Sound volume value. 

W$: White’s square marker. 

WH: Index to white player (= 1). 
WP$: Winning player’s name. 

X$: Temporary and utility string. 
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ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

SS Atari BASIC SS 
SS 'Battlefield’ SS 
SS Author: Joe Husphrey SS 
SS Translator: Jon R. Voskuil SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 
SS SS SS SS SS SS SS SS SS SS SS 


10 GOTO 70 

Subroutine to print a normal or inverse 
character. 

20 FOR 1=1 TO LEN(X*):PRINT CHR*(ASC(X 
*<I,I))+IV);:NEXT I:RETURN 

Subroutine to print the contents of 
position (COL, ROW) to the screen. 

30 CP=CP(C0L,R0W)sIV=0:IF <BC*=SP* AND 
CP=WH) OR (BC$=CU$ AND PL=WH) THEN IV 
=128 

32 IF S THEN SOUND 0,RND(1)*20+20,D,V 
34 POSITION 4ICOL+6,RQW+2:X*=8C*:GOSUB 
20:SOUND 0,0,OPPOSITION 4*C0L+3,RQW 
+2:GOSUB 20 

36 NB=SF(COL,ROM):NW=SF(COL+NC,RON):SF 
=NB+NW:IF SF(CQL+(1-CP)*NC,R0H)=0 THEN 
40 

3B IV=0:X*=CHR*(NB/SF*25+65):GOSUB 20: 
IV=128:Xt=CHR*(NW/SFt25+65):G0SUB 20:G 
0T0 46 

40 IV=0:IF CP=WH THEN IV=128 

42 IF SF<10 THEN X*=" ":Xt!2)=STR*(SF) 

:GOSUB 20:GOTO 46 

44 X4=STR*(SF):GOSUB 20 

46 IV=0:RETURN 

Main program control routine. 

70 NC=8:NR=10 

75 DIN CL*(1):CL*=CHR*<125) 

78 POKE 752,1 
80 GOSUB 1000 


90 GOSUB 2000 
100 GOSUB 3000 
110 GOSUB 4000 
120 GOSUB 5000 
130 GOSUB 6000 
140 GOSUB 7000 
150 GOTO 8000 
160 PRINT CL*:END 

Print instructions. 

1000 PRINT CL*)"BATTLEFIELD ttttt 
BY JOE HUMPHREY" 

1010 PRINT SPRINT " (ATARI TRANSLATE 
N BY JON VOSKUIL)" 

1030 PRINT 

1040 PRINT " TWO PLAYERS, BLACK AND 
MHITE, ARE ON A ")NC)“ BY ";NR)" BOAR 
D. A SQUARE OWNED" 

1050 PRINT "BY BLACK IS SHOWN WITH THE 
NUMBER OF FORCES IN THAT SQUARE AGAI 
NST A BLACK" 

1060 PRINT "BACKGROUND; A WHITE-OWNED 
SQUARE HAS A WHITE BACKGROUND." 

1070 PRINT " SQUARES CONTAINING BOT 
H SIDES’ FORCES ARE SHOWN WITH LETT 
ERS REPRE-" 

1080 PRINT "SENTING THE RELATIVE FORCE 
SIZES. AT THE END OF EACH TURN, BATT 
LES ARE" 

1090 PRINT "FOUGHT IN EACH- OF THESE SQ 
UARES, TO DETERMINE WHO OWNS THEM. 

THE FIRST" 

1100 PRINT "PLAYER TO OWN ALL THE SQUA 
RES WINS.” 

1110 PRINT " AT THE BEGINNING OF EA 
CH ROUND, NEW FORCES ARE ADDED TO EA 
CH SIDE," 

1120 PRINT “AND EACH SIDE’S MOVEMENT A 
LLOWANCE IS INCREASED." 

1130 RETURN 

Initialize variables. 

2000 BL=0:WH=1 
2010 F=0:T=1 
2020 HC=NC-1:NR=NR-1 
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2030 DIN DC(1),EC(1),LC(1),PC(1) 

2040 DIM MA(l),HF(l),NSU),TF(l),PNl$( 
20),PN2#(20),BP$(15) 

2050 DIN CP(HC,HR),SF(NC»2,HR) 

2055 FOR 1=0 TO 1:MA<I)=0:HF(I)=0:TF(I 
> =0:NEXT I 

2060 LC(BL)=4:DC{BL)=13:EC(BL)=21 
2070 LC tNH)=LC(BL)+20:DC(HH)=DC(BL)+20 
:EC(WH)=EC(BL)+19 

2080 PR=15:FR=PR+2:SR=FR+2:SR=SR+2 
2090 DIN BSt(l),SP$(l),CU$fl),BC$(l),X 
$<20),CH$(1) 

2100 SP*=“ ":CU$="#" 

2120 HC=INTINC/2) 

2130 FOR RQH=0 TO NR 

2140 FOR C0L=0 TO HC-1:CP(COL,ROH)=BL: 

NEXT COL 

2150 FOR CQL=HC TO HC:CP(COL,RON)=HH:N 
EXT COL 
2160 NEXT RON 

2170 NS(BL)=NR$HC:NS(MH)=NRtNC-NS(BL) 
2175 FOR C0L=0 TO NC»2:F0R R0H=0 TO HR 
:BF(COL,R0H)=0sNEXT RON:NEXT COL 
2180 OPEN #2,4,0,“K:" 

2190 RETURN 

Input players’ names. 

3000 POKE 752,0:P0SITIQN 2,22:PRINT "B 
LACK PLAYER’S NAME! INPUT PHI* 

3010 IF PNlf=“" THEN PN1»=*BLACK" 

3020 IF LENtPNl*)>15 THEN PN1$=PN1«1, 
15) 

3025 PC(BL)=9-LEN(PN14!/2 

3030 POSITION 2,23:PRINT "WHITE PLAYER 

’S NAME: INPUT PN2$ 

3040 IF PN24="" THEN PN2$=’NHITE" 

3050 IF LEN(PN2$)>15 THEN PN2$=PN2*U, 
15) 

3055 PC(HH)=29-LEN(PN2$)/2 
3060 POKE 752,1:RETURN 

Draw playing field, and display player 
data. 

4000 BC*-SP$ 

4010 PRINT CL* 


4020 FOR R0H=0 TO HR:FOR C0L=0 TO HC 

4030 GOSUB 30 

4040 NEXT COL:NEXT RON 

4050 FOR IPL=BL TO NH 

4070 POSITION PC(IPL),PR:IF IPL=BL THE 

N PRINT PHI*; 

4075 IF IPL=HH THEN PRINT PN2$; 

4090 POSITION LC(IPL),FR:PRINT "FORCES 

• ». 

* i 

4095 POSITION DC(IPL),FR:PRINT TF(IPL) 

m 

4110 POSITION LC(IPL),SR:PRINT "SQUARE 
S: 

4115 POSITION DC(IPL),SR:PRINT NS(IPL) 

V 

J 

4130 POSITION LC(IPL),AR:PRINT "HOVEHE 
NT: "; 

4135 POSITION DC(IPL),AR:PRINT HAiIPL) 

I 

4140 NEXT IPL 
4160 RETURN 


Begin Black’s turn. Add new forces to 
edge squares, and increase movement 
allowances. 

5000 SC$=SP$ 

5005 S=i:D=10:V=8 
5010 FOR IPL=BL TO NH 
5020 PIF (IPL) =INT (NSUPD/NRKi 
5030 NEXT IPL 

5040 FOR R0W=0 TO MR;FOR C0L=0 TO HC S 
TEP MC 

5050 CP=CP(COL.RON);SF=SF(COL+CPtNC,RO 
N) 

5060 NF=HF(CP).*IF SF+MF>?9 THEN NF=99- 
SF 

5070 IF NF>0 THEN SF(COL+CPINC,ROW)=SF 
+NF;SOSUB 30 

5080 TF(CP)=TF(CP)+NF;HA(CP)=MA(CP)+HF 
I CP) 

5090 NEXT COL;NEXT RON 
5100 POSITION DC(8L),FR;PRINT TF(BL);' 1 
n ;;POSITION DC(NH),FR;PRINT TF(NH); H 

a. 
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5110 POSITION DCIBL),AR:PRINT HA(BL);' 
"jsPOSITION DC(NH),ARsPRINT HA(NH);" 

» 

5120 PL=BLsCC=0 
5125 S=0 
5130 RETURN 


Execute player’s moves; move men until 
done or until his movement allowance Is 
exhausted. 


6000 CR=INT(NR/2) 

6010 H6=0 
6020 PF=F 

6030 POSITION PC(PL) ,PR-.IV=128sX*=PNl* 
sIF PL=HH THEN X*=PN2$ 

6035 G0SUB 20 

6040 BC$=CUI: CQL-CC: R0H-CP,: G0BUB 30 

6050 G0SUB 11000 

6060 HG=SF(CC+PLINC,CR) 

6070 IF Nfl(PL)=0 THEN 6120 
6080 G0SUB 10000 
6090 IF CH$="H” THEN 6030 
6100 IF CHl=BSt OR DF THEN 6050 
6110 IF CHIO'E* AND OHIO'S" THEN 606 
0 

6120 BC$=5P$: C0L=CC: R0H=CR: G0SUB 30 
6130 N6=0sGOSUB 11000 
6150 IV=0sP0SITI0N PC(PL),PRiX*=PN1*:I 
F PL=HH THEN X$=PN2* 

6155 G0SUB 20 
6160 IV=0:RETURN 


Fight battles to the death In all squares 
that contain both players’ forces. 


7000 IF NS(PL)=0 THEN 7170 
7005 S=lsD=4sV=12 

7010 FOR R0N=0 TO HRsFOR C0L=0 TO HC 

7020 CP=CP(C0L,R0N):IF CP=PL OR SFIC0L 

+PLINC,R0H)=0 THEN 7160 

7030 NS(CP)=NS(CP)-1 

7040 NB=SF(C0L+BLINC,R0H)sNN=SF(C0L+WH 

INC,R0N1 


7050 IF NNONB THEN CP(C0L,R0H)=(NN>NB 
) 

7060 IF NMNB=0 THEN 7130 

7070 SF=NB+NH - 

7080 IF NB<SF*I}HD( 1 ) THEN NB=NB-lsTF(B 

L)=TF(BL)-1 v 

7090 IF NH<SF*RND(1) THEN NN=NN-1:TF(N 
'fl)=TF(NH)-l 

7100 POSITION DCIBL),FRsPRINT TFIBL);* 
"j:POSITION DC(HH),FRsPRINT TFIHH ); 0 

1 

7110 SF(COLtBLINC,R0N)=NBsSF(CQL+HHtNC 
,R0H)=NH 

7120 GOSUB 30s GOTO 7050 
7130 GOSUB 30 

7140 CP=CP(COL,RON)s NS(CP)=NS(CP)+1 
7150 POSITION DCIBL),SRsPRINT NS(BL);* 
“ 5 sPOSITION DC(NH),SRsPRINT NSIHHls" 

s. 

7160 NEXT COLsNEXT RON 
7165 S=0 
7170 RETURN 


End of a turn. Check for end of game; if 
not, transfer control to player. 


8000 IF NS(BL)tNS(HH)>0 THEN 8100 
8020 HPI=PNltsIF NS(BL)=0 THEN HP$=PN2 
I 

8025 POSITION ll,23sPRINT u 

>• 

> 

8030 FOR Z=1 TO lOsPOSITION 2,21 
8035 SOUND 0,50,10,10 
8040 PRINT 8 

“;sFOR ZZ=1 TO lOsNEXT 11 
8045 SOUND 0,100,10,10 
8050 POSITION 16-LENIWPU/2,21 sPRINT W 
P*i' BINS!!!"j:F0R ZZ=1 TO 20sNEXT ZZs 
NEXT Z 

8055 SOUND 0,0,0,0 

8060 POKE 752,0sP0SITI0N 14,23sPRINT ' 
ANOTHER SAME";: INPUT XlsIF Xl=" THEN 
8060 

8070 IF X$(1,1)="N" THEN 160 
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8090 RUN 

8100 IF PL=WH THEN 120 
8110 PL=NH:CC=HC 
8120 B0T0 130 

Input and execute a command. 


10000 6ET 12, CH 
10010 CHI=CHR$(CH) 

10030 DF=ICHf>="0" AND CHi(="9')sDC*0: 
DR=0 

10040 IF DF AND NOT PF THEN NG=0 
10050 PF=DF 

10060 IF DF THEN NG=10*N6+VAL(CH*):6QT 
0 10160 

10070 IF CHi=BS* THEN NB=INT4NB/10J sPF 
=1sGOTO 10160 

10080 IF CHt=“E" THEN 10160 

10090 IF CH$="H" THEN 60SUB 12000:GOSU 

B 4000:GOTO 10160 

10100 IF CHt="I" THEN DR=-l:60T0 10150 
10110 IF CH$="J" THEN DC=-1:G0T0 10150 
10120 IF CH$="K" THEN DC=1:G0T0 10150 
10130 IF CHt="M" THEN DR=1:G0T0 10150 
10140 IF CH*="S" THEN NS(PL)=0:G0T0 10 
160 

10150 GOSUB 13000 
10160 RETURN 


Adjust the number of forces being 
moved, and update the screen display. 


11000 IF CP(CC,CR)OPL THEN NG=0 

11010 IF NG>NG THEN N6=H6 

11020 IF NG)HA(PL) THEN NG=HA(PL> 

11030 POSITION 11,23 

11040 IF NG=0 THEN PRINT “(TYPE H FOR 

HELP)*j:GDTD 11080 

11050 PRINT “(MOVING °?NG;“ FORCE"} 

11060 IF NG>1 THEN PRINT "S"} 

11070 PRINT 
11080 PRINT “ “} 

11090 RETURN 


12000 PRINT CLtsPRINT "C0NMAND: , ,“ 
DESCRIPTION: * 

12010 PRINT sPRINT "A NUMBER","NUMBER 
OF FORCES TO MOVE." 

12020 PRINT :PRINT “BACKSPC","DELETE L 
AST DIGIT OF NUMBER." 

12030 PRINT " E“,"END TURN BEFORE MO 
VEHENT=0." 

12040 PRINT .-PRINT " H", "PRINT THIS 

COMMAND LIST." 

12050 PRINT SPRINT " I","MOVE SOME F 

ORCES UP.' 

12060 PRINT SPRINT " J","MOVE SOME F 
ORCES LEFT." 

12070 PRINT SPRINT " K*,"MOVE SOME F 

ORCES RI6HT." 

12080 PRINT SPRINT " M",*MOVE SOME F 
ORCES DOHN." 

12090 PRINT .-PRINT " S","SURRENDER T 

0 OTHER SIDE." 

12100 PRINT SPRINT sPRINT " (HIT ANY 
KEY TO RETURN TO GAME)"; 

12110 6ET 92,X 
12120 RETURN 


Move cursor and forces, and update 
screen display. 


13000 SF (CC+PLINC,CR) =SF(CC+PLINC,CR )- 
N6 

13010 BC$=SP$:CQL-CC:ROW=CR:6DSUB 30 
13020 CC=CC+DCsCC=CC+(CC(O)-(CC>MC) 

13030 CR=CR+DR:CR=CR+(CR(O)-(CR)MR) 

13040 FS=SF(CC+PLtNC,CR):IF FS+NG>99 T 
HEN SF(CGL+PLINC,RON)=SF(COL+PLING,RON 
)+NG-(99-FS):NG=99-FS:GOSUB 30 
13050 SF(CC+PLINC,CR)=FS+NG 
13060 IF CC=CQL AND CR=RON THEN NG=0 
13070 BC*=CUt:COL=CC:ROH=CRsGOSUB 30 
13080 MA(PL> =MA(PL)-NG:GOSUB 11000 
13090 POSITION DC(PL),ARsPRINT MA(PL)} 

H B, 

13120 RETURN 
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Solitaire 

by Larry Williams 
Atari version by Alan J. Zett 


Solitaire is a graphic card game for a 
24K Atari. 

Solitaire games are among the most 
popular card games. Although they 
lack the action of the arcade games, 
they can be every bit as addictive. 
What starts out as “one quick game” 
often turns into an evening of “one 
more game.” 

There are many variations of 
solitaire; however, the most widely 
known version is the game of Klon¬ 
dike. Both the lay-out and the rules of 
the game are simple. It is this simplicity 
that is perhaps its strength. 

The Rules of Klondike 

1. Use one deck of playing cards. 

2. Deal twenty-eight cards into seven 
piles. The first pile on the left contains 
one card, the second contains two 
cards, and so forth. 

3. Deal the top card of each pile face 
up. 

4. Build on each pile in descending se¬ 
quence and alternating colors. (Exam¬ 
ple: Any red ten may be played on any 
black jack.) 

5. You are always entitled to have 
seven piles. If you clear away a pile 
leaving a space, you may play any king 
to the space. 

6. The remaining twenty-four cards 
form the “stock.” Cards are turned up 
one at a time from the stock onto the 
“waste” pile. The top card of the 
waste pile is always in play. 


7. Any complete column of cards may 
be picked up as a unit and played on 
another pile. (Example: A column of 
cards consisting of the 9 of hearts, 8 of 
spades, and 7 of diamonds may be 
played as a unit on a 10 of spades.) 

8. When a face-down card of a pile is 
uncovered, it is brought into play by 
turning it face up. 

9. Whenever an ace comes into play, 
use it to start a “foundation” pile. 
Foundation piles are started to the side 
of the seven original piles of the 
tableau. 

10. You build up on the foundation 
piles in suit and sequence. 

11. The bottom card of any column of 
cards is eligible for play to its foun¬ 
dation. 

12. Once a card is played to its found¬ 
ation, it is out of play for the rest of the 
game. 

13. The object of the game is to play 
each card to its foundation pile. 

When the game program is RUN you 
will find the seven piles of the tableau 
laid out horizontally across the top of 
the playing surface. The first card in 
play is displayed in the lower right cor¬ 
ner. A cursor is positioned at the bot¬ 
tom of the screen, and a summary of 
the commands available is displayed. 
When you start foundation piles they 
will appear at the right of the screen, 
above the waste pile. 

The following single key commands 
are available: 
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LEFT ARROW: Moves the cursor to 
the left. 

RIGHT ARROW: Moves the cursor to 
the right. 

P: Picks up the card or column of 
cards above the cursor. 

D: Drops cards which have been 
previously picked up at the cursor posi¬ 
tion, if the play is legal. You may 
always drop a card back where you 
picked it up. 

N: Brings the next card from the stock 
into play by placing it on the top of the 
waste pile in the lower right of the 
screen. You are allowed only one pass 
through the stock. 

F: Plays the card positioned above the 
cursor to its foundation pile, if the play 
is legal. (You need not type P to pick 
up a card that you wish to play to a 
foundation. Typing F alone will 
automatically move the card from 
its current location to its proper 
foundation.) 

E: When you have no more legal plays, 
type E to end the game. The program 
will request confirmation of this com¬ 
mand. Typing E will end your current 
game and begin a new one. 

Variables 

A$: Temporary string variable. 

AZ: Loop variable. 

C: Set equal to VA. 

C(6,11): Array of card values in the 
tableau. 

C$: Card values in letter form. 

CHR: Related to ASCII value of cur¬ 
rent card value. 


ss 

ss ss ss ss ss ss ss ss ss 

ss 

ss 


ss 

ss 

Atari BASIC 

ss 

ss 

'Solitaire' 

ss 

ss 

Author: Larry Nilliass 

ss 

ss 

Translator: Alan J. Zett 

ss 

ss 

Copyright (c) 1982 

ss 

ss 

SoftSide Publications, Inc 

ss 

ss 


ss 

ss 

SS SS ss ss ss ss ss ss ss 

ss 


CPOS: Memory location of character 
data for current card value. 

CU: Value of current cursor position 
(1-7). 

D(51): The deck of cards. 

F(4): Array of top cards on founda¬ 
tion piles. 

G$(5): Graphics strings. 

HF: Set to 1 if you have picked up 
cards in your hand, 0 if you do not. 
I,IN,J: Counters. 

IN(7): Array of counters pointing to 
the next open element in the tableau 
array and open deck. 

NUM: Card and suit value. 

OC: Old cursor position. 

OD(23): Array for open deck. 
PAUSE: Delay loop variable. 

P(6,5): Array of face-down cards in 
tableau piles. 

RN: Set to seed number for RND. 

T; Temporary variable. 

TX$(13): Array of text messages. 

ST: Cursor position at which cards 
were last picked up. 

SU: Suit of the card. 

VA: Face value of the card. 

VA$: Card values in letter form. 

X: Loop variable. 

X(7): X-coordinate values for tableau 
piles, waste pile (open deck), and 
foundations. 

Y1,Y2,Y3,Y4: Y-coordinates for the 
four foundation piles. 

Y(0-12): Y-coordinates for cards 
played to the tableau. 

Y(13): Y-coordinate for the waste 
pile. 

Z,ZA: Loop variables. 


1 GRAPHICS 18:POKE 756,209 
10 POSITION 5,3:? i6: , s01ItAiRe , :PQSIT 
ION 3,5:? #6:" TRANSLATED BY ^PQSITIQN 
4,7:? S6;" aian j zett B ;60TQ 1110 

Subroutine to draw cards. 

20 COLOR 1:FGR A2=Y TO Y+30:PLQT X,AZs 
DRAHTO X+30,AZsNEXT AZ 

22 C = VA:ON SU GOTO 36,46,24,28 

23 REN DIAMONDS 

24 COLOR 0:FOR ZA=0 TO 9:FOR AZ=0 TO Z 
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A STEP 2:PLOT X+15+AZ,Y+ZA+6:PLOT X+15 
-AZ,Y+ZA+6:NEXT AZ:NEXT ZA 

26 FOR ZA=9 TO 0 STEP -IsFOR AZ=0 TO Z 
A STEP 2:PLOT X+15+AZ,Y-ZA+25sPLOT X+l 
5-AZ,Y-ZA+25:NEXT AZsNEXT ZA:60T0 56 

27 REn HEARTS 

28 COLOR 0:FOR ZA=0 TO 10:FOR AZ=0 TO 
ZA STEP 2:PLOT X+15+AZ,Y-ZA+25:PL0T X+ 
15-AZ,Y-ZA+25:NEXT AZsNEXT ZA 

30 FOR ZA=U TO 15:FOR AZ=0 TO 10 STEP 
2:PLOT X+15+AZ, Y-ZA+25:PLOT X+15-AZ,Y 
-ZA+25-.NEXT AZsNEXT ZA 
32 Z=-2:FDR ZA=16 TO 18:Z=Z+2:F0R AZ=Z 
TO 8-Z STEP 2:PLOT X+15+AZ, Y-ZA+25sPL 
QT X+15-AZ,Y-ZA+25:NEXT AZ:NEXT ZA 

34 60T0 56 

35 REH SPADES 

36 COLOR Os FOR AZ=0 TO 9:PL0T X+15+AZ, 
Y+AZ+6:DRANTO X+15-AZ,Y+AZ+6:NEXT AZ 
38 FOR AZ=10 TO 12:PLOT X+15+9,Y+AZ+6: 
DRANTO X+15-9,Y+AZ+6:NEXT AZ 

40 Z=-2:F0R ZA=13 TO 15:Z=Z+2:F0R AZ=Z 
TO 8-Z:PLOT X+15+AZ,Y+ZA+6:PLOT X+15- 
AZ,Y+ZA+6:NEXT AZsNEXT ZA 
42 Z=0:F0R AZ=13 TO 19:Z=Z+1:PL0T X+15 
+Z,Y+AZ+6:DRANTO X+15-Z,Y+AZ+6:NEXT AZ 

44 GOTO 56 

45 REH CLUBS 

46 COLOR 0:AZ=X+11:ZA=Y+6:B0SUB 52:AZ= 
X+5:ZA=Y+13:60SUB 52:AZ=X+17:GQSUB 52 
48 Z=0:FOR AZ=14 TO 21:Z=Z+0.65:PL0T X 
+15+Z,Y+AZ+5:DRANTO X+15-Z,Y+AZ+5:NEXT 
AZ 

50 FOR Z=X+14 TO X+16:PL0T Z,Y+13:DRAN 
TO Z,Y+19:NEXT Z:GQTO 56 
52 PLOT AZ+2,ZA:DRANTO AZ+6,ZA:PL0T AZ 
+2,ZA+7:DRANTO AZ+6,ZA+7:PLOT AZ+1,ZA+ 
1:DRANTO AZ+7,ZA+1 

54 PLOT AZ+l,ZA+6:DRANTO AZ+7,ZA+6:F0R 
Z=ZA+2 TO ZA+5:PL0T AZ,Z:DRANTO AZ+8, 
ZsNEXT Z:RETURN 

56 CHR=ASC(Ct(C,C)):IF CHR<96 THEN CHR 
=CHR-32t(CHR>31)+64XCHR<32) 

58 CP0S=CHR18+(PEEK(756)1256) 

60 FOR AZ=0 TO 7:P0KE (AZ*40)+NEN+(X/B 


)+(Y140),255-PEEK(CPOS+AZ):NEXT AZ:RET 
URN 

Subroutine to get SU and VA. 

70 SU=INT(NUM/100) 

80 VA=NUH-100tSU 
90 RETURN 

Subroutine for next card. 

100 IF HF THEN GOSUB 1480:RETURN 

110 IF IN>51 THEN 1490 

120 0D(IN(7))=D(IN):IN=IN+1:X=X(7):Y=Y 

(13):NUH=0D(IN(7)):GOSUB 70:GQSUB 20:1 

N(7!=IN(7)+i 

140 RETURN 

Subroutine to draw cursor. 

150 POKE 656,0:IF 0C<7 THEN POKE 657,4 
IQC+4:? " ■ 

160 IF 0C=7 THEN POKE 657,35:? * * 

170 POKE 656,0;IF CU<7 THEN POKE 657,4 
tCU+4:? " A " 

180 IF CU=7 THEN POKE 657,35:? ,Aa 
190 RETURN 

Subroutine to move right. 

200 CU=CU+1:IF CU>7 THEN CU=7 
210 GOSUB 150 
220 OC=CU 
230 RETURN 

Subroutine to move left. 

240 CU=CU-1:IF CU<0 THEN CU=0 
250 GOSUB 150 
260 OC=CU 
270 RETURN 

Subroutine to pick up cards. 

280 IF HF THEN GOSUB 1480'.RETURN 
290 ST=CU 

300 IF IN(CU)=0 THEN GOSUB 1510:RETURN 
310 IF CU=7 THEN NUN=0D(IN(7)-1):GOTO 
330 

320 NUM=C(CU,0) 

330 HF=1 
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340 J=0:IF CU=7 THEN COLOR IsFOR 1=0 T 
0 30s PLOT X (CU)+1, Y (13) *. DRAMTO X(CU)+I 
,Y113)+30s GOTO 370 

350 IF P(CU,0)=0 THEN COLOR OsFOR 1=0 
TO 30sPLOT X(CU)+I,YlJ):DRAHTO X(CU)+I 
,Y(J)+30:G0T0 370 

360 FOR 1=0 TO 30 STEP 2sCOLOR OsPLOT 
X(CU)+I,Y(J):DRANTD X(CU)+I,Y(J)+30 
365 IF I<30 THEN COLOR IsPLOT XICUHI+ 
1,Y(J):DRAHT0 X<CU)+I+1,Y<JT+30 
370 NEXT I 

380 IF CU=7 THEN 60SUB 150sRETURN 
390 J=12*(IN(CU)-l)+32 
395 COLOR OsFOR 1=0 TO 30sPLQT XICUH-I 
,Y(0)+31:DRANT0 X(CU)+I,Y(0)+J:NEXT I 
400 RETURN 

Main subroutine to drop card. 

410 IF NOT HF THEN 60SUB 1520sRETURN 
420 IF CU=7 THEN 60SUB 590s RETURN 
430 IF ST=CU THEN GOSUB 750s RETURN 
440 IF IN(CU)=0 THEN GOSUB 630sRETURN 
450 NUN=C(CU,IN(CU>-1> 

460 GOSUB 70:TS=SU:TV=VA 

470 IF ST=7 THEN NUM=OD(IN(7)-1> sGOTO 

490 

480 NUN=C(ST,0) 

490 GOSUB 70s IF ((TS=1) OR <TS=2)) AND 
<(SU=1) OR (SU=2)) THEN GOSUB 1530s RE 
TURN 

500 IF (1TS=3) OR (TS=4)) AND USU=3) 
OR (SU=4)) THEN 60SUB 1540:RETURN 
510 IF TVOVA+1 THEN GOSUB 1550sRETURN 
520 IF ST=7 THEN GOSUB 700sRETURN 
530 FOR 1=0 TO IN(ST)-1:NUH=C(ST,I):C( 
CU, IN (CU))=NUH:GOSUB 70s X=X (CU):Y=YUN 
(CU))sGOSUB 20:IN(CU)=IN(CU)+1 
540 C(ST,I)=OsNEXT IsIN(ST)=0sHF=0 
550 IF P(ST,0)=0 THEN RETURN 
560 NUH=P(ST,0):G0SU8 70sX=X(ST)sY=Y(0 
)sGOSUB 20:C(ST,IN(ST))=NUHsIN(ST)=l 
570 FOR 1=0 TO 4sP(ST,I)=P(ST,I+l>sNEX 
T IsP(ST,5)=0 
580 RETURN 


Drop card back on open deck. 

590 IF ST07 THEN GOSUB 1560: RETURN 
600 NUM=QD(IN < 7)-1)s GOSUB 70:X=X(CU):Y 
=Y(13):G0SUB 20s60SUB 150 
610 HF=0 
620 RETURN 

Drop king on open space. 

630 IF ST=7 THEN NUM=DD(IN(7)-1)sGOTO 
650 

640 NUH=C(ST,0) 

650 GOSUB 70 

660 IF VA<>13 THEN GOSUB 1570sRETURN 
670 IF ST=7 THEN GOSUB 700:RETURN 
680 GOSUB 530 
690 RETURN 

Drop card from open deck. 

700 X=X(CU):Y=YUN(CU))sCICU,IN(CU))=N 

UH:GOSUB 20:IN(CU)=IN(CU)+1 

710 IN(7)=IN(7)-l:ODUN(7))=0sHF=0 

720 IF IN(7!=0 THEN COLOR 0:X=X(7)sY=Y 

(13):FOR 1=0 TO 30sPLOT X+I,YsDRANTO X 

+1,Y+30:NEXT I:RETURN 

730 NUH=0D(IN(7)-1)sGOSUB 70sX=X!7)sY= 

Y(13)sGOSUB 20 
740 RETURN 

Drop cards back where you got them. 

750 FOR 1=0 TO IN(CU)-1:NUH=C(CU,I):60 
SUB 70s X=X(CU)sY=Y(I)sGOSUB 20sNEXT I 
760 HF=0 
770 RETURN 

Play to foundations from open deck. 

780 NUM=0D(IN<7)-1)sGOSUB 70:FL=1 
785 IF (F(SU)OVA-l) AND (F(SU)=0) THE 
N GOSUB 1580:RETURN 

790 IF F(SU)OVA-l THEN TV=F<SU):GOSUB 
1550:RETURN 
800 GOSUB 980 
810 0D(IN(CU))=0 

820 IF IN(CU)=0 THEN GOSUB 720:RETURN 
830 GOSUB 730 
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835 GDSUB 150 
840 RETURN 

Piay last card of column to foundation. 

850 IF P(CU,0)=0 THEN COLOR Os FOR 1=0 
TO 30:PLOT XfCU!+I,Y(0):BRABTG XSCU5+I 
,Y(0)+30:6QTO 875 

860 FOR 1=0 TO 30 STEP 2:C0L0R OsPLOT 
X(CU)+I,Y(0):DRAHT0 X!CU)+I,Y(0)+30 
870 IF I<30 THEN COLOR IsPLQT X(CU)+I+ 
1,Y(0):DRAWT0 X(CU)+1+1,Y(01+30 
875 NEXT I:C(CU,0)=P(CU,01 
880 IF P(CU,0)=0 THEN RETURN 
890 NUH=C(CU,0):X=X(CU):Y=Y(0):60SUB 7 
0:GOSUB 20 
900 IN(CU)=1 

910 FOR 1=0 TO 4:P(CU,I)=P(CU,I+1):NEX 

T I:P(CU,5)=0 
920 RETURN 

Main subroutine to play to foundations. 

930 IF HF THEN RETURN 
935 FL=0 

940 IF IN(CU)=0 THEN 60SUB 1510;RETURN 
950 IF CU=7 THEN 6QSUB 780:RETURN 

960 NUH=C (CU, IN iCU) -1): GQSUB 70 
965 IF (F(SU)OVA-l) AND (F(SU)=0) THE 
N 60SUB 1580:RETURN 

970 IF F(SU)OVA-l THEN TV=F(SU):80SUB 
1550:RETURN 
980 X=X(7) 

990 IF SU=1 THEN Y=Y1 

1000 IF SU=2 THEN Y=Y2 

1010 IF SU=3 THEN Y=Y3 

1020 IF SU=4 THEN Y=Y4 

1030 60SUB 20:F(SU)=VA 

1040 IN(CU)=IN(CU)-1:IF FL THEN RETURN 

1050 C(CU,IN(CU))=0 

1060 IF IN(CU)=0 THEN B0SUB 850:RETURN 
1070 X=X(CU):Y=Y(IN(CU)-1):NUH=C(CU,IN 
(CU)-l):80SUB 70:60SUB 20 
1080 COLOR 0 

1090 FOR 1=31 TO 45:PLOT X!CU),Y(IN(CU 
)-1)+1:DRAHTQ X(CU)+30,Y(IN(CU)-1)+1:N 
EXT I 

1100 RETURN 


Initialize variables. 

1110 CLR :DIN TX$(91),AZ*(7),C*(13),C( 
6,11),P(6,5),D(51),0D(23),F(4),X(7),Y( 
13),IN(7):0PEN tl^jO/K" 

1115 TX$(91)=“# , :TX$(1,1)=’ ":TX$(2)=T 
X*(1):C$="A23456789TJBK“:AZ*=TX$ 

1120 FOR 1=1 TO 13:AZ*=" ":READ 
AZ$:TX$(I*7-6,II7)=AZ$:NEXT I 
1150 FOR 1=0 TO 6:FOR J=0 TO 5:C(I,J)= 
0:P(I,J)=0:NEXT J:F0R J=6 TO 11:C(I,J) 
=0:NEXT J:NEXT I 

1160 FOR 1=0 TO 23:0D(I)=0:NEXT I 

1170 FOR 1=0 TO 4:F(I)=0:NEXT I 

1180 FOR 1=0 TO 7:X(I)=21+I*32:Y(I)=I* 

12:NEXT I:X(7)=269 

1190 FOR 1=8 TO 12:Y(I)=I*12:NEXT I 

1200 Y1=0:Y2=32:Y3=64:Y4=96:Y!13)=12B 

1210 POKE 756,224 

1220 IN=0:F0R 1=1 TO 4:F0R J=1 TO 13:D 
<IN)=100*I+J:IN=IN+1:NEXT J:NEXT I 

Shuffle cards. 

1230 FOR 1=51 TO 0 STEP -1:X=INT(RND(0 
)t(I+l)):T=D(X):D(X)=D(I):D(I)=T:NEXT 
I 

Deal to tableau. 

1240 IN=0iFOR 1=1 TO 6:F0R J=0 TO 1-1: 
P(I,J)=D(IN):IN=IN+1:NEXT J:NEXT I 
1250 FOR 1=0 TO 6:C(I,0)=D(IN):IN=IN+1 
:NEXT I 

Draw set-up. 

1260 GRAPHICS 8;P0KE 710,96:P0KE 752,1 

:COLOR 1:P0KE 709,15:P0KE 712,4:HEN=PE 

EK(8B)+PEEK(89)*256 

1280 FOR X=254 TO 258 STEP 2:PL0T X,0: 

DRAMTO X,160:NEXT X 

1290 FOR 1=0 TO 6:NUM=C(I,0):60SUB 70: 

X=X(I):Y=Y(0):G0SUB 20:NEXT I 

1300 FOR 1=0 TO 6:IN(I)=1:NEXT I:IN(7) 

=0 

1310 GOSUB 100:G0SUB 1460 
1320 CU=0:DC=0:X=X(CU):GOSUB 150 
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Control program. 

1330 POKE 764,255:GET #1,A:A=A-32*(A>9 
0) 

1340 IF A=42 THEN GOSUB 200:G0TQ 1330 

1350 IF A=43 THEN GOSUB 240:G0T0 1330 

1360 IF A=78 THEN GOSUB 100:GOTO 1330 

1370 IF A=80 THEN GOSUB 280:G0T0 1330 

1380 IF A=68 THEN GOSUB 410:GOTO 1330 

1390 IF A=7Q THEN GOSUB 930:G0T0 1620 

1400 IF A=69 THEN 1420 

1410 GOTO 1330 

Text messages. 

1420 GOSUB 1600:? "DO YOU HANT TO END 

THE GAME? <Y/N)";:GET »1,A 

1430 IF A<>89 THEN GOSUB 1460:G0T0 133 

0 

1440 RUN 

1450 GOSUB 1600:END 
1460 GOSUB 1600:? "ARROHS HOVE, E=END 
GAHE F=FOUNDATIQN N=NEXT CARD, P=PICK 
UP CARDS, D=DROP"| 

1470 RETURN 

1480 GOSUB 1600:? "YOU’VE ALREADY PICK 
ED UP A CARD",*:SOTO 1610 
1490 GOSUB 1600:? "THERE ARE NO MORE C 
ARDS IN THE DECK YOU MUST PLAY WITH 
THE CARDS SHOWING";:GOTO 1610 
1510 GOSUB 1600:? “THERE ARE NO CARDS 
HERE TO PICK UP";:GOTO 1610 
1520 GOSUB 1600:? "YOU DO NOT HAVE ANY 
CARDS TO DROP";:GOTO 1610 
1530 GOSUB 1600:? "YOU CAN’T PLAY BLAC 
K ON BLACK";:GOTO 1610 
1540 GOSUB 1600:? "YOU CAN’T PLAY RED 
ON RED";:GOTO 1610 

1550 GOSUB 1600:? "YOU CAN’T DROP A";T 
X$(VAt7-6,VA*7>:? "ON TOP OF A";TX*(TV 
*7-6,TV*7);:G0T0 1610 
1560 GOSUB 1600:? "YOU CAN’T DROP CARD 
S HERE";:60T0 1610 

1570 GOSUB 1600:? "YOU CAN ONLY DROP A 
KING HERE";:GOTO 1610 


1580 GOSUB 1600:? “START YOUR FOUNDATI 
ON WITH AN ACE";:60TD 1610 

Names of cards. 

1590 DATA N ACE, TWO, THREE, FOUR, FIV 
E, SIX, SEVEN,N EIGHT, NINE, TEN, JACK 
, QUEEN, KIN6 

Clear bottom of screen. 

1600 POKE 656,2:POKE 657,2:? CHR4U56) 

;CHR$(156);CHRt1253);:RETURN 

Pause subroutine. 

1610 FOR PAUSE=1 TO 300:NEXT PAUSE:GOS 
UB 1460:RETURN 

Check for game won. 

1620 IF F11X13 OR F12X13 OR F13X13 
OR FI4X13 THEN GOTO 1330 
1630 GOSUB 1600:? " YOU WIN!! CARE TO 
PLAY AGAIN? (Y/N)";:BET #1,A:IF A<>78 
THEN RUN 

1640 GRAPHICS OsCLR 
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Gambler 



by Randy Hawkins Atari version by Rich Bouchard 


Gambler is a game program for up 
to four players requiring a 32K Atari. 

Gambler is more than a dozen dif¬ 
ferent games of chance. You and as 
many as three of your friends compete 
in a contest to see who can parlay a 
$100 stake into $1000 first. The com¬ 
puter would not be content to just keep 
score and watch all this money change 
hands so it becomes a “player” with 
just the same chances of winning and 
losing as you have. 

On each player’s turn, he is first 
given the opportunity to buy as many 
as three lottery tickets. A lottery ticket 
will return $50 to the owner if it 
matches the winning numbers in the 
lottery. After purchasing any tickets 
desired, the wheel of fortune is shown. 
A block of light dances randomly 
around the board stopping momentari¬ 
ly beside the name of the many games 
available. The player touches any key, 
and the dot slowly settles into one 
category — the game in which the 
player will participate. 

There are many types of games 
available in Gambler . Some are very 
simple; you may be instructed by a 
mysterious fortune teller to give or 
receive amounts of money to or from 
other players or the bank. The names 
of some of these categories are 
somewhat deceptive so pay close atten¬ 


tion as the message slowly scrolls 
across the screen. 

There are also several betting games 
involving dice. You can win or lose 
money by betting on the outcome of 
the two dice rolls: will the total be 
even, will your roll be highest, or will it 
be the lucky number 7? There is even a 
form of “dice poker” with the best 
hand taking the pot. 

Gambler even has its own horse rac¬ 
ing track so that all the players can bet 
on the outcome and try to win the 
purse. Lotteries are also held once in a 
while to pay off the winning lottery 
tickets. Big money is available 
whenever a sweepstakes is held. The 
correct bet on the outcome of the roll 
of six dice can bring the winner up to 
$450. 

Gambler is loosely based on a board 
game with many extras added. Because 
the computer always plays, you can 
practice with it. And since as many as 
four humans can play along with the 
computer, it makes a great game for 
parties or when you have a large crowd 
eager to play with the computer. 

The winner is the first player to go 
over the $1000 mark. In case of a tie, 
the game continues until someone gets 
ahead. Should you go broke, the bank 
will advance you $100 but will charge 
you with one IOU. As soon as you can, 
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you must pay the IOU back at a price 
of $110. These transactions will take 
place only on your turn. 

So the time has come. Type in this 
program, gather three of your friends 
around the video screen, and see who is 
the champion gambler in your 
household. 

Variables 

A$: Contains name of game read 
from the DATA statements in lines 
390-410. 

Al$, A2$: Graphics strings used as 
borders in game selection screen. 

B: ASCII code of user response. 

D(6): Utility variables for six rolls of 
dice, six horse race positions, etc. 

D$: Contains the pictures of the six 
dice. 

GN: Game number selected in 
selection routine. 

H$: Contains picture of the horses 
used in horse race subroutine. 

HM: Contains highest money total 
when searching for winner. 

HN: Number of player with highest 
money total. 

I, J, K, L, S: Utility FOR-NEXT 


counters. 

IO(X): Contains number of IOUs 
held by player X. 

IP: Used as a loop variable to signal 
which player’s turn it is. 

JJ: Upper boundary on the FOR- 
NEXT loop that increases gradually 
to slow movement of the dot in game 
selection function. 

L(X): Number of lottery tickets held 
by player X. 

L$: Lottery ticket string. 

M(I): Contains amount of money 
help by player I. 

M$: Used to hold the message printed 
out during various functions. 

N: Contains the number of players. 
N$: Contains players’ names. 

PB: Contains the number of IOUs 
which can presently be paid off. 

R$: Used as a utility string in 
construction of graphics. 

T$, Tl$: Used to generate an 
individual lottery ticket. 

TI: Used as a timing delay. 

X, Y, XI, Yl: Used to hold present 
and previous print location for dot in 
game selection routine. 


SS SS SS SS SS SS SS SS SS SB SS 


SS SS 
SS Atari BASIC SS 
SS 'Gabbler’ SS 
SS Author: Randy Hawkins SS 
SS Translator; Rich Bouchard SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
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SS SS SS SS SS SS SS SS SS SS SS 


Program Initialization. Line 20 creates 
A1$ and A2$, graphics strings used In 
the borders of the game selection 
screen. Subroutine 420 does further 
Initialization of graphics. Lines 30 and 
40 set the number of players, N. Line 50 
determines players’ names and 
Initializes money, M(l), numbers of IOUs, 
10(1), and lottery tickets, L(l). If desired, 
instructions are displayed after 
prompting in line 50. 


))))>)> ) ) 


1 GRAPHICS 0 

12 POKE 82,1:OPEN #2,4,0, »Ki u 

15 DIH N$(50},Z$(40),L$(50),N(6),I0(6) 
,L(6),T$(3),T1$(3),Al$(40),A2f(40),A$( 
30),D$(102),R$(4),0$(39),S$(6),B$U) 

16 DIH D(6),Hf<16),H$(140),P(6) 

17 FOR 1=1 TO 6:L(I)=0jNEXT I 

18 FOR T=1 TO 50:N$(T,T)= H “sNEXT T:L$ 
=N$:Q$=N$(1,39) 

20 A1$= B - , “iAl*<3,3)= 

CHR$<25)sAl$(LEN<A1*J>1>=Al$sA2$=" 


22 Ai$(LEN(Al$)+l)=V:GOSOB 420 

30 PRINT "How sany players (up to 4) ? 
«» 

40 GET I2,N:N=N“48;IF N<1 OR N>4 THEN 
40 

42 PRINT N 

50 FOR 1=1 TO Ns? H Hho is player # H 5 l| 
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:INPUT Z$;N$(Ill0-9,Itl0)=Z$:l1(I)=100: 
I0(I)=0 

52 HI)=OiNEXT I:Nt(Iil0-9,I»10)=“ATAR 
I ":NU) =100:10(1 )=0:N=N+1:PRINT “ 

Do you need to see instructions?"; 

60 GET *2 f BsIF CHR$(B)="Y" THEN GOSUB 
1370 

Game loop. Loop, using variable IP, 
cycles through each player’s turn. 
Present money totals are shown In line 
80. Broke players are handled by lines 
90-120. Lottery tickets are bought In 
lines 130-150. Game number Is selected 
In subroutine 290, and line 180 transfers 
control to the appropriate routine. 

70 FOR IP=1 TO N 

80 GRAPHICS 0:PRINT " Present bankrolls 

IOUs ";? “rrrrrrrrrrrrrr 
rrrrrrrrrrrrrrrrrrrrrrrrr”; 

81 REN Line 80: Second string 2 

39 <CTRL> R’s 

82 FOR 3=1 TO NtPRINT N$(3tl0-9,0tl0); 

• $’;H(3):P0SITI0N 35,3+1:? I 

0(J):NEXT J:? :G0SUB 200 

84 PRINT "It is ";Nt(IP»lQ-9,IP»10);"’ 
s turn.”:? :IF H(IP)>=0 THEN 100 
90 I0(IP)=I0!IP)+1:M(IP)=N(IP)+100:IF 
H(IP)<=0 THEN 90 

92 PRINT "You sust borrow *oney to con 
tinue to play and pay it back to the 
bank .... plus interest!" 

94 FOR TI=1 TO 800:NEXT TI:G0T0 80 
100 IF I0(IPX=0 OR NUPX110 THEN 130 
110 PB=INT!N!IP)/110):IF PB)IO(IP) THE 
N PB=I0(IP) 

120 I0(IP)=I0(IP)-PB.:H(IP>=HiIP)-110»P 
B:PRINT "You can pay back “;PB;" I0U n 
ote(s)":? "at 110 dollars each." 

122 FOR TI=1 TO 800:NEXT TI 

130 IF L(IP)=3 THEN 160 

132 PRINT "Hould you like to buy a lot 

tery ticket for $10 ? "; 

140 IF IP=N THEN PRINT "Y":GQT0 154 
150 GET #2,B:IF CHR$(B)='N" THEN 160 
152 IF CHR$(BX>"Y* THEN 150 
154 ? CHRt(253):GOSUB 260:L(IP)=L(IP>+ 


1: L* UPI9+L <IP) *3-11, IPI9+L4 IP) I3-8)=T 
$:N!IP)=H(IP)-10 

156 FOR TI=1 TO 400:NEXT TI:G0T0 80 
160 ? :POSITION 4,20:? "Hit any key to 
continue"; 

170 GET *2.B:GOSUB 290 

180 ON GN GOSUB 1020,810,460,1130,1170 

,1190,460,1200,1230,1240,460,750,1300, 

940,1020,710,810,1310,1320,750,460 

182 IF GN>21 THEN ON GN-21 GOSUB 1330, 

710,810,1340,1350,1330,810,460,940,131 

0,710,750,1360,810,710 

190 IP=IP+1:IF IP>N THEN 70 

192 SOTO 80 

Called In game loop to check for winner. 
The highest money total is found In line 
200. If greater than $1000, then winner Is 
notified; otherwise, game continues. 

Option of playing a new game Is In lines 
240:250. 

200 HH=H(1):HN=1:F0R 3=2 TO N:IF H<3)> 

HH THEN HH=H(3):HN=3:NEXT 3:G0T0 210 
202 NEXT 3 

210 IF HHC1000 THEN RETURN 

220 K=G:F0R 3=1 TO N:IF H(3)=HH THEN K 

=K+1 

222 NEXT 3 

230 IF K>1 THEN PRINT "Since there’s a 
tie, keep going":? :RETURN 
240 ? :? NI(HN*10-9,HN*10);" wins this 
gane with ":? HH;" dollars!" 

242 FOR T=1 TO 100:S0UND 0,T,10,10:FQR 
TI=1 TO 5:NEXT TI:SOUND 0,255-T, 10,10 
:F0R TI=1 TO 5:NEXT TI:NEXT T 
244 SOUND 0,0,0,0:SOUND 1,0,0,0 
248 ? :? ‘Hould you like to play again 

• i 

250 GET #2,B:IF CHR$(B)="Y" THEN RUN 
252 END 

Lottery subroutine..Selects two-digit 
lottery ticket that Is different from all 
other lottery tickets Issued. Displays 
results In line 280, and returns. 

260 T$=" - *:T$ U,1)=CHR$ C 49+INT < RNB(0 
)*5)):T1*=CHR$(49+INT(RND(0)*6)):IF TI 
♦<=T$ THEN 260 
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262 Tt(3,3)=Tl$:FGR 1=1 TO N:IF L(I)=0 
THEN 280 

270 FOR 3=1 TO L(I):IF T*=L$(I*9+343-1 
1,119+313-91 THEN 260 
272 NEXT 3 

280 NEXT I:PRINT "You receive ticket n 
usher 8 ;T$:RETURN 

Game selector. Prints border, using A1$ 
and A2$. Reads names of games from 
DATA statements In lines 390-410, Lines 
320-350 wait for players to touch any 
key. Lines 360-380 settle on one game, 
set the game number GN, and return. 

290 RESTORE sBRAPHICS 0;PRINT A2i;:F0R 
3=1 TO 18:PRINT A1$;:NEXT JtPRINT A2* 

■ 

300 FOR X=1 TO 18:READ APPOSITION 4,X 
:? A$:READ A*:PQSITI0N 23,X:? At:NEXT 
X 

310 X=1:X1=2:PQKE 752,1:POKE 764,255:P 
OSITION 2,22:? "Touch any key, 8 ;N$(IP 
tlO-9,IPtiO); 

320 Y=X:Y1=X1:P0SITIQN XI,X:? CHRK160 
) j: X=INT (RND(0) M8) +1: X1=INT (RND(0) 42) 
*i9+2 

322 FOR S=X*2+Xl/21+50 TO XI2+X1/21+42 
STEP -4;SOUND 0,S,10,lOsNEXT S:S0UND 
0 , 0 , 0,0 

330 IF IP=N AND RND(0X0.03334 THEN 36 

0 

340 IF I PON THEN B=PEEK (764): IF B<>25 
5 THEN 360 

350 POSITION VI ,Y:? " 8 ;:G0T0 320 

360 POKE 764,255:33=25:FOR 1=1 TO 6+IN 
T(RND(0)*4):F0R 3=1 TO 33:NEXT 3:33=33 
+25:POSITION Yi,Y:? 8 “;:Y=X:Y1=X1 

361 SOUND 0,X42+X1721+30,10,10:SOUND 0 
,X42+XI/21+40,10,10:S0UND 0,0,0,0 

362 POSITION XI, X:? CHRt(160)s:IF Xl=2 
THEN X1=21;SOTO 370 

364 X1=2:X=X+1:IF X=19 THEN X=1 
370 NEXT I 

380 FOR TI=1 TO 150:NEXT TI:GN=X*2+INT 
(XI/13)-2:POSITION Y1,Y:? 8 ”;:FOR 1=1 
TO 5:POSITION Y1,Y:? CHRt(160); 


381 FOR S=10 TO 120 STEP 10:S0UND 0,S, 
10,lOsNEXT S:FOR S=110 TO 0 STEP -10:S 
OUND 0,S,10,10:NEXT S 

382 FOR TI=1 TO 30:NEXT TI:POSITIQN Y1 
,Y:? 8 “j:FOR TI=1 TO 30:NEXT TI:NEXT 
I:POKE 752,0:RETURN 

390 DATA POKER PARTY,F 0 R T U N E !,S 
WEEPSTAKES!, LOVE A NEIGHBOR,EZ CONE EZ 
GO,MIN A FEN 

392 DATA SWEEPSTAKES!,UNLUCKY SEVEN,LO 
SE A FEM 

400 DATA EVEN STEVEN,SWEEPSTAKES!,BAIL 
Y DOUBLE,POT LUCK,HIGH ROLLER,POKER PA 
RTY,LOTTERY,F 0 R T U N E ! 

402 DATA 3ACKP0T,$100 BONUS,OFF TO THE 
RACES,SWEEPSTAKES!,LOSE THIS TURN 
410 DATA LOTTERY,F 0 R T U N E !,TAX T 
IHE,BONANZA,LOSE THIS TURN,F 0 R T U N 
E SWEEPSTAKES',HIGH ROLLER 

412 DATA 3ACKP0T,LOTTERY,HORSE RACE,HA 
D HONEY,F 0 R T U N E !,LOTTERY 

Graphics initialization. Set up graphics 
variable D$, which is pictures of the six 
dice. 

420 D$= 8 =+++ t =+++_t=+++__=++ 

+ t t =+++ t =+++ t t t =+++ =+++t t 

t t=+++ t =+++ t tt t =+++t t=+++t t” 

421 REH Line 420: Non-space characters 
in string are control characters. 

430 REH Above: T=<CTRL> T 
432 REH d=<ESC> (CTRL) = 

434 REH 1=<ESC> (CTRL) + 

450 RETURN 

Sweepstakes routine. Lines 460-480 set 
up the graphics display. Line 490 offers 
optional Instructions, which are in lines 
510-530. Lines 540-600 record each 
player's sweepstakes bet In S$(J,J). Line 
620 rolls six dice, displays them, and 
records them in D(X). The highest 
number rolled is stored in HN. Line 630 
checks for pairs, 640-650 for a straight, 

660 for a split, and 670 for single spots. 

460 GRAPHICS 0:?° SWEEPS 

TAKES! 8 :?:?" qrrrrrGrrrrrwrr 
rrrHrrrrre" 
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461 REH Line 460; Lower-case letters 
are control characters. 

464 ?" A C E": 

o « I l i» 

l • * » 

466 REN Line 464; Type [SHIFTS 

i ni*L nsd n L t 
1II91CQU Ul 

470 ? :? :? :? B ! 

! !":? *P=Pair B 

D F B 

471 REH Line 470s Type [SHIFT] 5 
instead of ! 

472 ? u S=StraightzrrrrrIrrrrrxrrrrrJrr 
rrrc 8 

473 REH Line 472; Lower-case letters 
are control characters. 

4B0 FOR X=i TO 6:P0SITIQN X*6-2,5:? D$ 
1X117-16,Xtl7)|:NEXT X 

490 POSITION 1,12;? "Do you need Sweep 
stakes instructions ?* 5 sPOKE 764,255 
500 GET 12,B 

510 IF CHR$(B)= B N* THEN 540 
512 POSITION 1,12:? “In Sweepstakes ev 
eryone antes $10. Theneach player bets 
on the outco»e of the 8 
514 ? "roll of 6 dice. There are thre 
e types of bets. B :GQSUB 1470 
520 POSITION 1,12;? "Gne way is to bet 
on where the highest nusber rolled wi 
11 appear. If the high 1 ; 

522 ? "number appears in A,B,C,D,E or 
F you win $300. Letters G,H,I and 3 
cover 

524 ? "two spots. If you bet 6, you c 
over spots A and C and can win $150 

ft 

530 G0SUB 1470:POSITION 1,12:? "Anothe 
r bet is <<P» Tor pairs. If twodice 
next to one another aatch, you win"; 
532 ? "$200. The third bet is «S» f 
or a straight. If 3 consecutive di 

ce appear"; 

535 ? "in nuserical order, you win $45 
0. ";0$:GOSUB 1470 

540 FDR 1=12 TD 18:PQSITIQN 1,1:? 0$;: 
NEXT I:POSITION 30,12:? "A-F $300":PQS 


ITIQN 30,13:? "G-J $150" 

542 POSITION 32,14:? "P $200":POSITION 
32,15:? *S $450":FOR 1=1 TO N:H(I)=N( 
I)-10:S$<I,I)=" *:NEXT I 
544 POSITION 10,23:? "Place your bets: 

■.. v-n 
j • A-I* 

550 FOR 3=IP TO N:PQSITIQN l,Xs? N$<Jt 

10-9,JI10);" - *;:X=X+t 

560 IF J=N THEN B$=CHR$(65+RND(0)I11): 

IF B$=T THEN B$='P" 

562 IF J=N THEN 580 

570 GET #2,B;B$=CHR$(B):IF <B$>"3" AND 
B$<"K"1 OR B$="P" OR B$='S" THEN 580 
572 GOTO 570 

580 FOR K=1 TO Ns IF B$=S$IK,K) THEN 56 
0 

582 NEXT K:PRINT B$;:S$(J,J)=B$:NEXT J 
590 IF IP=1 THEN HN=1:G0T0 620 
592 FOR j=i TO IP-isPOSITION i,X:? N$( 
J$10-9,J$10)j" - ";:X=X+t 

600 GET #2,B;B$=CHR$(B)sIF (B$>"3" AND 
B$<"K") OR B$="P" OR B$="S" THEN 610 
602 GOTO 600 

610 FOR K=1 TO N;IF B$=S$(K,K> THEN 60 
0 

612 NEXT K:PRINT B$;:S$(J,3)=B$:NEXT J 
:HN=1 

620 60SUB 1470:POSITION 1,5:? 0$(1,37) 

:? 0$(1,37):? 0$(1,37):F0R X=1 TO 6:F0 
R L=1 TO 5:D(X)=INT(RND(0!$6+1) 

622 POSITION Xt6-2,5:? D$<D(X)»17-I6,D 
(X)*17»;:NEXT L:IF D(X)>HN THEN HN=D(X 
) 

624 NEXT X 

628 FOR 1=12 TO 15.-P0SITI0N 30,1:? * 
";:NEXT I 

630 FOR J=1 TO N:X=12+(J-IP):IF X<12 T 
HEN X=X+N 

631 POSITION 30,X:? " ";:PQSITI 

ON 14,X:IF S$(3,JX>"P" THEN 640 

632 FOR K=1 TO 5:IF D(K)=D(K+1) THEN ? 
"$200 for a pair":H(J)=N<Jj+200:K=5:6 

0T0 690 

634 NEXT K:? "Sorry, no pairs!"sGOTO 6 
90 
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640 IF S*<J,JX>"S" THEN 660 
642 FOR K=1 TO 4:IF D(K)=DfK+l)-l AND 
D(K)=D(K+2)-2 THEN ? "4450 for the str 
aight":M(J)=H(J)+450:60T0 690 
644 NEXT K 

650 ? “No straight!*:BOTO 690 

660 IF (S$(J,J)=" 6 " AND (Dil)=HN OR D( 

3) =HN)) OR (S$(J,J)="H" AND (D<3)«HN 0 
R D(5)=HN1) THEN 668 

662 IF <S$(J,J)="I" AND <D(2)=HN OR D( 

4) =HN)) OR (S$1J,J)=M" AND <D(4)=HN 0 
R D( 6 )=HN>> THEN 668 

664 GOTO 670 

668 ? "$150 for bet on st1<J>= 

H(J)+150jBOTO 690 

670 IF St(J,J)<="3“ OR S$(J,J)>=" 6 " TH 
EN 680 

672 K=ASC(S$i3,3))-64:IF D(K)=HN THEN 
PRINT "$300 on spot J)sMf 

)+300;GOTO 690 

674 PRINT "You lose with spot H |Sf(J,J 
);:6QT0 690 

6 B 0 ? "Naybe next tiaei" 

690 NEXT J 

700 GOSUB 1470:RETURN 

Lottery subroutine. Instructions and 
lottery tickets shown are In line 710. 
Array D(J) Is set to zero. Six dice are 
rolled and displayed. If a number J is 
rolledED(J) is set to 1. Winning tickets 
are evaluated in line 730. Lottery ticket 
count L(l) is set to zero. 

710 GRAPHICS 0;? " LOTTE 

R Y"s? :? "If both the nusbers on you 
r ticket are" 

712 ? "aaong the six nuabers rolled, y 
ou will receive $50 for that ticket.": 
? "Here we go..." 

714 FOR J=1 TO N:POSITION 1,10+J:? N$< 
Jtl0-9 f M10)j" "}L$(J$9-8,J$9-6>j" 

";L$(J$9-5,J$9-3) 5 " ";L$(J»9-2,J* 

9) 

716 NEXT J:GOSUB 1470 
720 FOR J=1 TO 6:D(J)=0:NEXT J:F0R J=1 
TO 6:K=INT(RND(0) $61+1 POSITION JI6-2 
,7:? D$(K$17-16,Ktl7):D(K)=l 


722 NEXT J 

730 FOR 3=1 TO M:IF L(J)=0 THEN 738 

731 FOR K=1 TO L(J):F0R L=1 TO ISOsNEX 
T L 

732 IF D(VAL(L$<J»9+K*3-ll,J$9+Kt3"ll) 
))=1 AND D(VAL(L$<J$9+K*3-9,J$9+K*3-9) 
>1=1 THEN 735 

734 POSITION 10+KI6,10+J:? “—";:S0UN 
D 0,220,10,10:FOR TI=1 TO 100:NEXT TI: 
GOTO 737 

735 POSITION 10+K$6,10+J:? "$50";:H(J) 
=H(J)+50:F0R S=30 TO 10 STEP -2:SOUND 
0,S,10,10:FOR TI=1 TO 2 :NEXT TI 

736 SOUND Q,255-S,10,10:FQR TI=1 TO 2: 
NEXT TIiNEXT S 

737 SOUND 0,0,0,OsNEXT K:L(J)=0 

738 NEXT J:F0R J=1 TO N$9:L$(J,J)=“ ": 
NEXT J 

740 GOSUB 1470:FOR J=1 TO N$9:L$(J,J)= 

" ":NEXT J:L(1)=0:L(2)=0:L(3)=0:RETURN 

Horse roace routine. The picture of a 
horse Is in H$ in line 750. Heading and 
instructions are In lines 750-760. 

Horizontal position Is In array D(K). Each 
of six horses is randomly advanced by 
Incrementing its print position. When 
D(K) approaches the end of the screen in 
line 780, the winner Is announced In 
lines 790 and 800. 

750 GRAPHICS OsPOKE 752,1:H$=" „ u=+ 

++++ it.":FOR J=1 TO 6:D(J)=10:P0SITI0 
N 2,J$3+1:? J|" ";H$fsNEXT J 

751 REH H$ is typed as:[spHshift-][sp 
][sp][ctrlU 3 Ee 5 c][ctrl =](5 tiaes:lescl 
[ctrl+msp HspICctrlUICspI 

752 FOR J=1 TO N:P0SITI0N 1,J*3+lsPRIN 
T N$(JtlO-9,J$10>;:H(J)=H(J)-20:NEXT J 
:POSITION 6,0:? "HORSE RACES 

1# 

754 FDR Y=1 TO 6:P0SITI0N 38,Y$3+1:? " 
."pNEXT Y 

760 POSITION 1,21:? "Everyone has bet 
$20, the winner will receive $100.":G 
OSUB 1470 

770 SOUND 0,250,8,lOsSOUND 0,240,8,10s 
SOUND 0,255,8,10:S0UND 0,0,0,0 
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780 K=INT(RMD(O)$6)+l:D(K)=D(K)+l:P0SI 
TION D(K),K*3+ls? H$;:IF D1KX33 THEN 
770 

790 POSITION 1,21s? 0$(l,38)js? 0$(1,3 
8);:? 01(1,38)^POSITION l,21sIF K>N T 
HEN 794 


792 ? N$(Kti0-9,K»10); s 
OOsBOTO 800 


LJ f •* » < • J • _ - 

;sim)=nnO+i 


794 SOUND 0,0,0,0s? "Horse nmber "|K; 

h a, 

J 

800 ? "wins this race!“:60SUB 1470:P0K 
E 752,0:RETURN 


Fortune teller routine. The fortune 
teller's messsage is chosen at random 
In lines 810-880, and Is displayed In lines 
900-920. 


810 H$="":6RAPHICS OsPOSITION 7,4s? "T, 
HE FORTUNE TELLER SftYS; b ;K=1sH=10»NtT 
RND(0)l5+l)+50 

820 IF RND(0i<0.2 THEN M$="Hold a Swee 
pstakes."5K=2:60TO 890 
830 IF RND(0)<0.2 THEN H$="Hold a Lott 
ery."sK=3s60T0 890 

840 IF RND(0X0.5 THEN N$="Collect fro 
b ":K=-ls60T0 850 
842 f!$="Pay to " 

850 3=INT<RND<0)*(N+l)+l)slF JOIP THE 
N 860 

852 H$(LEN(H$)+l)=“everyone*sH(IP)=t1<I 
P)-KtNJMsFOR 3=1 TO NsH(J)=H(J!+K*HsNE 
XT JsBOTO 880 

860 IF 3=N+1 THEN H$(LEN!H$)+l)=’the b 

ank":H(IP)=M(IP)-KIH:60TO 880 

870 N$(LEN(HJ)+l)=NHJtlO-9,JllO)sNUP 

)=l1(IP)-KtH:H(3)=H!3)+K»H 

880 N$(LEN(I1$X1)=" ":H$(LEN<H$)+1)=ST 

R$(H):H$(LEN(H$)+1)=" dollars." 

890 QQ=0 

900 FOR TI=LEN(H$) TO 1 STEP -1:H$(TI+ 
44,TI+44)=H$(TI,TI):NEXT TI:H$(1,32)=Q 
${1,32):M$(33,42)=N$(IP*10-9,IP*10) 

901 H$f43,44)=", ":H$(LEN(H$)+1!=0$<1, 
32) 

902 FOR 3=1 TO LEN(Mf>-31sSOUND 0,200, 
8,lOsPOSITION 5,6s? H$(3,3+30);:SQUND 


0,0,0,OsFOR TI=1 TO SsNEXT TIsNEXT 3:H 
$=■" 

910 60SUB 1470 
930 IF K=2 THEN 460 
932 IF K=3 THEN 710 
934 RETURN 


High roller game. Instructions are In line 
940; all roll two dice In line 950. High roll 
Is determined In lines 960 and 970. 

Single winner is announced In line 980; a 
tie causes a re-roll in lines 990-1010. 


940 BRAPHICS 0s? "H I 6 H R 0 L L E 
R -- Everyone antes $20 and rolls 
two dice. The" 

942 ? "highest roll takes the $100 pri 
ze. To roll dice, touch any key on yo 
ur turn."s60SUB 1470 
950 FOR J=i TO NiM(J) s H!i!)-20sP0BITI0N 
i,2+J$3s? N$<J*10-9,J*10)sXl=12+(J-IN 
T(3/2)12)$4s X=2+J$3s 60SUB 1450sD(J)=K 
952 Xl=Xl+8sB0SUB 1450sD(J)=D(J)+KsP0S 
ITI0N 28,Xs? "Total is B ;D(J)jsNEXT 3 
960 HN=D(l)sHH=l:F0R 3=2 TO NsIF D(3)> 
HN THEN HN=D(3)sHH=3 
962 NEXT 3 

970 K=0sF0R 3=1 TO NsIF D(3)=HN THEN K 
=K+1 

972 NEXT 3 

980 IF K=1 THEN POSITION 1,20s? N$(HHt 
10-9,HH$10);“ wins the poti"sH(HH)=H(H 
H)tl00sP0KE 764,255sG0SUB 1470sRETURN 
990 POSITION 1,20s? “He’ve got a tie! 
Those high rollers will roll again! 
"SPOKE 764,255s60SUB 1470 
992 POSITION 1,5:FOR 3=1 TO 18s? 0$;:N 
EXT 3 

1000 FOR 3=1 TO NsXl=14sX=2+3*3sIF D<3 
XHN THEN D(3)=0sNEXT JsBOTO 960 
1002 POSITION l,Xs? N$(3tl0-9,3$10)sXl 
=12+(3-INT(3/2)$2)$4sB0SUB 1450sD(3)=K 
:X1=X1+8:B0SUB 1450 

1004 D(3)=D(3)+KsP0SITI0N 28,Xs? "Tota 
1 is ";D(3);sX=X+3sNEXT 3 
1010 60T0 960 
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Poker party subroutine. Instructions are 
In line 1020. Three dice are rolled In line 
1030 for all players. Check for three of a 
kind In line 1040; for pairs In 1050; for 
straights In 1070. Winner Is announced 
In 1120. A tie causes the routine to 
restart. 

1020 BRAPHICS Os? "P 0 K E R PART 
Y -- Each player pays $20 and rolls 
three dice. The" 

1022 ? "best poker hand":? "(Three of 
a Kind > Straight > Pair) wins $100 
. Touch any key to roll dice."; 

1024 60SUB 1470:XX=6iF0R 1=1 TO N:H!I) 
=H(I)-20:NEXT I:HH=0 
1030 FOR 1=1 TO IMPOSITION 1,XX:? N$(I 
110-9,IllOliFOR H=1 TO 3:J=I:X1=9+MI6: 
X=XX:PDKE 764,255:GQSUB 1450:D(H)=K 
1032 NEXT M:P(I)=0 

1040 FOR TI=1 TO 100:NEXT TI:F0R TI=X 
TO XX+2:PQSITIQN 11,TI:PRINT Q$(l,28); 
:NEXT ThPOSITION 13,XX 

1041 ? D(1)|" ";D(2)j" “;D(3)i" "; 

1042 IF D(1)=D(2) AND D(1)=D(3) THEN ? 
"Three of a kind!";:P(I)=30+D<1):60T0 
1100 

1050 IF D(1)=D(2) THEN PU>=I0+D(1> 

1052 IF D(1)=D(3) THEN P(I)=10+D(1) 

1054 IF D(2)=D(3) THEN Pil)=10+D(2) 

1060 IF P(I)>0 THEN PRINT "A pair!°;:6 

OTO 1100 

1070 FOR J=1 TO 3:IF (Dii}=D(2)+l AND 
D(l)=D<3)+2) OR (D(1)=D(2)-1 AND D(l)= 
D(3)-2) THEN P(I)=20:B0T0 1080 
1072 HN=D(l):Dil)=D(2l:D(2)=D(3):D(3)= 
HN-.NEXT J 

1080 HN=D!1):F0R J=2 TO 3:IF D!J)>HN T 
HEN HN=D(J) 

1082 NEXT J 

1090 P(I)=P(I)+HN:IF P(I)>20 THEN PRIN 
T "A straight!:B0T0 1100 
1092 PRINT "Highest roll is a ";P(I); 
1100 XX=XX+2:IF P(I)>HN THEN HN=P(I) 
1102 NEXT I 

1110 K=0:FOR 1=1 TO N:IF P(I)=HN THEN 
K=K+1:J=I 


)}))>))))) 


1112 NEXT I 

1120 IF K=1 THEN POSITION 1,20:? N$(J* 
1Q-9,J$10);" wins the pot of $100":H(J 
)=H(J>+100:60SUB 1470:RETURN 
1122 POSITION 1,20:? "He have a tie .. 

. so let’5 all play another hand!": 

GQSUB 1470:60T0 1020 

Love thy neighbor routine. Set the 
message In line 1150; adjust money In 
line 1160; Jump to display routine In line 
890. 

1130 GRAPHICS 0:K=0:H=INT(RND(0)15+1)1 
10+50 ' 

1140 J=INT(RND(0)$N+1):IF J=IP THEN 11 
40 

1150 N$="Show that you are a good neig 
hbor and give ":N$(LEN(M$)+1)=N$(J*10- 
9,J$10):N$(LEN(N$)+1)=" ” 

1152 N$(LEN(H$)+1)=STR$(«):H$(LEN(M$)+ 

1)=" dollars." 

1160 N(IP)=H(IP)-H:N(J)=Hy)+N:G0T0 89 
0 

Easy come, easy go. Give Instructions 
and roll two dice in line 1170. Adjust 
money. 

1170 GRAPHICS 0:? "E A S Y CONE 
EASY G 0 -- The bank will pay 
you 10 tines the roll"; 

1172 ? "of 2 dice. Touch any key to r 
oil dice,";N$(IP»10-9,IP*10):G0SUB 147 
0:J=IP:X1=15:X=6:60SUB 1450:H=K 
1174 Xl=Xl+6:G0SUB 1450:N=(H+K)*10:H(I 
P)=N(IP)+H 

1176 POSITION 7,10:? “You win do 
liars." 

1180 G0SUB 1470:RETURN 

Short messages routines. Simple 
procedures to handle special routines: 

Win A Few (1190), Unlucky Seven (1200), 

Lose A Few (1230), Even Steven (1240), 

Pot Luck (1300), Jackpot (1310), $100 
Bonus (1320), Lose A Turn (1330), Tax 
Time (1340), Bonanza (1350), and Mad 
Money (1360). 

1190 GRAPHICS 0:? *N I N A F E H 
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— The bank Hill payyou ten tines the 
roll of one die." 

1192 ? 'Touch any key to roll die, °;N 
$(IPtlO-9,IPtlO):60SUB 1470:J=IPsX1=1B 
:X=6:G0SUB 1450:H=K*10:W(IP1=H(IP)+H 
1194 GOTO 1176 

1200 GRAPHICS 0:? "UNLUCKY S E 
V E N -- Roll tno dice. If the tota 
1 is seven you lose" 

1202 ? "$100. For any other total, yo 
u win $100. Touch any key to roll 
dice,":? N$(IP$10-9,IP$10):G0SUB 1470 
1204 J=IP:X1=15:X=6:G0SUB 1450:H=K:X1= 
X1+6:60SUB 1450:H=H+K 
1210 POSITION 7,10:IF H=7 THEN ? "You 
lose 100 dollars!":H(IP)=HiIP)-100:G0T 
0 1220 

1212 ? "You win 100 dollars!‘:N(IP)=H< 
IP)+100 

1220 60SUB 1470:RETURN 
1230 GRAPHICS 0:? "L 0 S E A F E H 
— You aust pay the bank ten tiaes 
the roll of one die."; 

1232 ? "Touch any key to roll die,":? 

N$!IPtlO-9,IPtlO):G0SUB 1470:J=IP:X1=1 

8:X=6:G0SUB 1450:H=Ktl0 

1234 H<IP)=M(IP)-H:P0SITI0N 7,10:? "Yo 

u lose ";H;“ dollars.":G0SUB 1470:RETU 

RN 

1240 GRAPHICS 0:? "E V E N STEVE 
N — You aay bet up to $90 and roll 
tno dice. If the" 

1242 ? ‘total is even, you collect tni 
ce your bet. Touch any key to roll d 
ice." 

1244 ? N$MPtlO-9, IPtlO):? "Hdh such h 
ill you bet ? »;:J=IP:IF IP=N THEN B=5 
4+INT(RND(0)l4);60T0 1260 
1250 GET I2,B:IF B<49 OR B>57 THEN 125 
0 

1260 H=(B-48)$10:? H;" dollars":G0SUB 
1470 

1270 X1=15:X=7:G0SUB 1450:P=K:Xl=Xl+6: 
G0SUB 1450:P=P+K 

1280 POSITION 7,11:IF INT(P/2)$2=P THE 


N ? "You oin ‘|2tH;“ dollars.“:H<IP)“H 
(IP)+2$Hs6DT0 1290 

12B2 ? "You lose ";H;" dollars.MHCIP) 
3 H(IP)”H 

1290 G0SUB 1470:RETURN 
1300 GRAPHICS Q:H-10tINT(RNB(0)t5+l)+l 
0:HUP) s N(IP!-H:H$="Khy don’t you snee 
ten the pot by giving the bank * 

1302 N$!LEN<H$)+1)=STR$(H):H$(LEN(H$)+ 
1>=“ dollars.":K=0:G0T0 890 
1310 GRAPHICS 0:N=10tINT(RND(O)$5+1)+5 
0:H$-"You hit the Jackpot! Collect 
H$iLEN(H$)+l)=STR$(N) 

1312 H$(LEN(H$)+1)=" dollars.*!K=0:HU 
P)=H(IP)+H:GOTO 890 
1320 GRAPHICS 0:H(IP)=H(IP)+100:H$="P1 
ease accept this $100 bonus!":K=0:G0T0 
890 

1330 GRAPHICS 0sN$=“You just lost this 
turn!":K=0:60T0 890 

1340 GRAPHICS 0:H$="Pay $100 tax to th 
e bank! B :H<IP)=H<IP)-100;K=0s6DT0 890 
1350 GRAPHICS 0:H=INT(RNDIO)t5+l)tlO:N 
<IP)=H(IP!+HtN:F0R J=1 TO N:H(J)=HIJ)- 
NsNEXT J 

1352 H$='Hhat a Bonanza! Everyone pay 
s you ":H$(LEN(H$)+1)=STR$(H):N$(LEN(N 
$)+l)=" dollars.“:K=0:60T0 890 
1360 GRAPHICS 0:H=INT(RND(0)t5+l)tl0:H 
(IP)=N1IP)-H»N:F0R J=1 TO N:«(J)=N!J)+ 

H:NEXT J 

1362 H$=”This ought to sake you aad. 

Give everybody ":H$(LEN(H$)+1)=STR$(H) 
:H$(LEN(H$)+1>=" dollars.":K 3 0:GGT0 89 
0 

Instructions. 

1370 GRAPHICS 0:? "This is the gaae of 
BAHBLER! *:? :? "You and the Atari are 
in a contest to" 

1372 ? ‘see uho Hill build his $100 ba 
nkroll into $1000 first. Honey is n 
ade and" 

1374 ? "lost through a series of gases 
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of chance — fro* horse racing a 
nd dice* 

1380 ? "gaaes to lotteries and sweepst 
akes! If you should lose all your a 
oney, your a 

1382 ? “I0U will be accepted (as long 
as you pay it back with interest).*: 
? : ? " GOOD LUCK! *:K=0:GOTO 

910 

Utility subroutines. Lines 1540-1460 wait 
for Input before stopping on one of the 
six dice at screen position XI, X. The 
computer’s dice choice is made in line 
1450. Lines 1470 and 1480 print a 
message a wait for keyboard response. 

1450 POKE 764,255:S=PEEK(752)s POKE 752 


1452 IF JON THEN 1460 
1454 FOR L=1 TO RND(0)»50+1:K=INT<RND( 
0)t6+l):P0SITI0N XI,X:? D*<KI17-16,K»1 
7) j:POKE 53279,RND<0>*4:NEXT LsGOTQ 14 
62 

1460 B=PEEK(764):K=INT(RND(0)*6+1): P0S 
ITI0N XI,X:? D$(Ktl7-16,Ktl7);sPOKE 53 
279,RND!0)t4:IF B=255 THEN 1460 
1462 POKE 764,255:P0KE 752,S:RETURN 

1469 STOP 

1470 POKE 764,255:P0SITI0N 1,23s? " 
Touch any key to continue"; 

1475 IF RND<0X0.11 THEN S=RND<0)170+3 
OsFOR TI=S TO S-B STEP -4:SOUND 0,TI,1 
0,lOiNEXT TI:SOUND 0,0,0,0 
14B0 IF PEEK(764)=255 THEN 1475 
1482 POKE 764,255:POSITION 6,23s? “ 

RETURN 
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by Ray Sato 

Atari version by Rich Bouchard 

Operation: Sabotage is an adventure 
game for an Atari 400/800 with 24K 
RAM (tape) or 32K (disk). 

It is the year 2101 and war has 
broken out between Earth and the dis¬ 
tant planet Zekloke. This alien power 
has established a large military com-! 
plex on Mars which will soon become a 
great danger to Earth. Hidden in the 
massive installation are several secret 
documents containing the plans for an 
incredible defense shield — strong 
enough to stop an entire fleet of 
spacecraft. 

You are a special agent and have just 
succeeded in sneaking into the alien 
complex. Your mission is to destroy 
this threat to mankind and return with 
plans for the powerful defense shield. 
The outcome of this mission will decide 
the fate of mankind. 

Playing Notes 

The computer will always give you a 
brief description of where you are, 
what objects you can see, and what ex¬ 
its are visible. You move and act by 
typing in simple commands, generally 
consisting of a verb and a noun. If the 
computer tells you that there is a laser 


Encryption modifications by Rich 
Bouchard, William Kubeck, and Alan 
J. Zett 

pistol in the room, for example, you 
might want to type in the command 
“GET PISTOL”. At a later time, you 
might be able to use it to “SHOOT 
MONSTER” or for some other pur¬ 
pose. If you no longer want to carry it, 
you can “DROP PISTOL” whenever 
you please. Since the computer looks 
only at the first three letters of the verb 
and the last three letters of the noun, 
you may use abbreviations such as 
“SHO TER” (for “SHOOT 
MONSTER”) if you desire. Movement 
is accomplished by entering just a 
single letter rather than a two-word 
command: N, S, E, or W for north, 
south, east,or west. Typing the single 
word “INVENTORY” (or “INV”) 
will display a list of what you are carry¬ 
ing. Typing “STATUS” (or “STA”) 
will give you a readout of your current 
physical condition. 

Part of the challenge of any adven¬ 
ture game such as Operation: Sabotage 
is to figure out what you are able to do 
in a particular situation. Therefore, 
you will not find a list of all the verbs 
the computer can understand, or of all 
the objects you may discover. You 
might find yourself frustrated by what 
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seem to be dead-ends, and end up get¬ 
ting killed in the process. This is all 
part of the adventure, and a test of 
your ingenuity and perseverance. 
Program Notes 

The most obvious feature of the pro¬ 
gram listing is that most of it looks like 
a cryptogram. The BASIC keywords 
are all in their usual form, but the 
string assignment statements and 
DATA lines are incomprehensible. 
This is because all of the room descrip¬ 
tions, object names, monsters, and 
verbs have been encoded. This has 
been done to preserve the value of the 
game. Anyone who types an adventure 
program in from a listing is bound to 
be disappointed in the game’s 
playability, since he has gained so 
many clues about the plot. So, even 
though the typing is made slightly dif¬ 
ficult by the scrambled words, this is 
the only reasonable way of publishing 
adventure programs in listed form. We 
have also omitted the usual list of 
variables for the same reasons. The 
variable descriptions give away too 
much information and the encoding of 
the program reduces the usefulness of a 
variable list. 


SS SS SS SS SS SS SS SS SS SS SS 

SS 


SS 

SS 

Atari BASIC 

SS 

SS 

'Operation Sabotage’ 

SS 

SS 

Author: Ray Sato 

SS 

SS Translator: Rich Bouchard 

SS 


SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS S3 SS SS SS SS SS SS SS SS SS 

Jump to program Initialization. 

1 GOTO 2620 

Decode and print output. 

4 IF P$= BN THEN RETURN 

5 FOR P=N1 TO LEN(P$);? CHRt(ABS(U55! 
tPHP)> B a"})-ASC{Pl.iP))))5>HEXT Ps? :R 
ETURN 


) ) ) ) ) ) ) > ) 


The encryption method is a simple 
one, which results in leaving punctua¬ 
tion unmodified, and inverting the 
order of the letters of the alphabet. 
This simple inversion process has the 
advantage of using the same routine to 
decode the text as was used to encode 
it. In Operation: Sabotage , the user’s 
input is encoded, the internal searches 
and comparisons are done in encoded 
form, and the response is decoded and 
printed by the subroutine at line 5. 
SWAT 

In order to offset the proofreading 
problems created by this approach, we 
have included an expanded SWAT 
Table for this program. Instead of the 
normal 12-line/500-byte SWAT 
parameters, we have used 5-line/200- 
byte parameters. This means that you 
must modify the first line of the SWAT 
program in order to generate a table to 
compare with ours. After merging 
SWAT in the normal manner, but 
before running it, simply edit or retype - 
line 32000, changing “NU -12: 

B = 500” to “NU = 5: B-200”. This 
will proyide an expanded SWAT 
Table, enabling you to pinpoint typing 
mistakes more easily. 


Encode Input. 

6 V$= HH :IF V0$= ttH THEN RETURN 

7 FOR J=N1 TO LEN(V0$):V$<LENfV$)+Nl) s 
CHR$(ABSU155$(V0$y)> u 9*>)-ASC(V0$Q) 
))):NEXT JsRETURN 

Auxiliary jump points. 

8 GOSUB N4:GOTO 2520 

9 GOSUB N4sGOTO LI 
Descriptions of individual rooms. 

10 AI= H ZH ZRIOLXP. GSVIV RH Z YOFV 
YFG6LH SVIV°jS=N2sRETURN 

20 A$= H Z NZIILD XLIIRHLI*:N=N1:S=N3:RE 
TURN 

30 A$= H Z NZIILD XLIIRHLI*:N=N2;S s N4:RE 
TURN 

40 A$ S "Z NZIILD XLIIRHLI B sN=N3sS s N5sRE 
TURN 
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50 fl$s"Z HNZOO ILLN"sN=N4sS=6sRETURN 
60 A$="Z NVXLHGZNRHZGRLH XSZNYVI B :B$= B 
8SV3V RH Z YOFV YF66LH SVIV°:N=N5:S=7: 
RETURN 

70 A4= B Z HNZOO H6LIZTV XSZNYVI B :N=6:S= 
N8:N=12:RETURN 

80 A$= B Z HNZOO XSZNYVI B :N=7iS=N9:«=13s 
RETURN 

90 A$=“Z HNZOO VOVXGILHRX OZYL 

IZGLIB':N=N8:S=10:H=14:RETURN 
100 Ai= B Z YRLOLTRXZO OZYLIZBLIB. GSV 
IV RH Z IVN YF6GLH LM GSV DZ00 B :N=N9:N 
=15:RETURN 

110 A$=“Z HGLIZTV XSZNYVI":N=16:RETURN 
120 A$= n Z OZITV XSZNYVI. GSVIV RH Z X 
ZYRHVG SVIV"sS=13:«=17:E=7:RETURN 
130 At=“Z H6IZMTV KFIKOV ILLN. GSV 
IV RH Z YOFV YFGGLH SVIV‘:N=12:S=14:H= 
18:E=N8:RETURN 

140 At=”Z HNZOO LUURXV“:N=13:S=15:E=N9 
:RETURN 

150 At="Z HNZOO ILLN DRGS Z XZIN GZY 
OV RH GSV XVNGVr:N=14:S=16:H=20:E=10: 
RETURN 

160 A$=”Z OZITV LUURXV. GSVIV RH ZNVH 
P SVIV B :N=15:H=21:E=11:RETURN 
170 A$="Z LUURXV DRGS Z OZITV HVHP":S= 
18:E=12:RETURN 

180 A$="Z HGLIZTV ILLN":N=17:S=19:E=13 
•.RETURN 

190 A$="Z OZITV SZOD":N=18:S=20:RETURN 

200 A$="ZH VHGVIGZRHNVHG ILLN. Z HXI 

VVH IVHGH LH GSV DZOO":Bt=“GSVIV RH Z 

YOFV ZHN Z IVN YFGGLH HVZI GSV HXIVVH" 

202 N=19:S=21;E=15:RETURN 

210 At="Z HZGZ IVXLIN HGLIZTV ILLN“:N= 

20:E=16:RETURN 

220 A4="IZWZI XLHGILO. GSVIV RH Z HNZ 
00 HXIVVH SVIV":S=23:H=27:RETURN 

230 Af= B Z NVNRXZO HGZGRLH. GSVIV RH 
Z OZITV GZYOV SVIV":N=22:S=24:W=28:RET 
URN 

240 A*= B Z HVXFIRGB H6ZBRLH”:N=23:RETUR 
N 

250 A$="Z IZWRL ILLN B :S=26:N=30:RETURN 


260 A$="Z HNZOO ILLN. GSVIV RH Z HZU 
V RH GSV HLFGS DZ00":N=25;H=31:RETURN 
270 A$= B 6SV ILYLG XLHGILO XVHGVI. GSV 
IV RH Z HNZOO XLHGILO XLNKFGVI NLF 
NGVH RH GSV DZ00 B :Bt= B, :W=32:E=22 
272 RETURN 

280 A$="GSV DVZKLNH HGLIZTV ILLN':S=29 
:H=33:E=23:RETURN 

290 At= B Z 0RYIZIB":N=28:S=30:N=34:RETU 
RN 

300 At= B Z HVXFIRGB XSVXP ZIVZ“:N=29:N= 
36:E=25:RETURN 

310 At=“Z HNZOO ILLN DRGS Z NVHP. Z H 
RTH IVZNH" 

312 B$=“’KIVHHFIV GL IVZXGLI.’ Z YOFV 
YFGGLH RH OLXZGVN FHNVI GSV HRTH":E=2 
6:RETURN 

320 Af="OZFHXS XLHGILO. GSVIV RH ZNVH 
P SVIV";S=33:8=37:E=27:RETURN 
330 A$="Z HNZOO XLIIRNLI“:N=32:S=34:E= 
28:RETURN 

340 A$="Z HGIZHTV YOFV ILLN. GSVIVRH 
Z IVN YFGGLH SVIV B :N=33:S=35:E=29:RETU 
RN 

350 A$=“Z GRHB HGLIZTV ILLN B :N=34:N=40 
:RETURN 

360 A$="Z HNZOO XSZNYVI. Z NLLI DVH 
G OVZHH GL GSV HFXOVZI IVZXGLI B sE=30sR 
ETURN 

370 A*= B Z HNZOO, HZIILD XLIIRNLI B :N=42 
:E=32:RETURN 

380 At=“GSV XLNKFGVI XVHGVI. GSVIVRH 
Z HNZOO HOLG RH GSV XLNKFGVI“:S=39:RET 
URN 

390 AI="GSV XSVNRXZO 0ZY.":N=38:S=40:R 
ETURN 

400 A$=“GSV IVZXGLI XLHGILO XVHGVI.GSV 
IV RH Z YOFV YFGGLH ZHN Z IVN LHV. Z H 
RTH HZBH IVZXGLI XLHGILO - “ 

402 A$iLEN(At)+NU="IV8=LH, YOFM.UU": 
N=39:E=35:RETURN 

410 At=“GSV HFXOVZI IVZXGLI. Z XLN 
KFGVI IVHGH LH GSV DZ0Q B :E=36:RETURN 
420 A$=“GSV DVHS VHN LU Z OLHT XLI 
IRNLI":S=37:E=43:RETURN 
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430 A«="6SV VZHG VMM LU Z GLUT XLI 

IRHLI" sH=42sE=44 s RETURN 

440 At=*Z HVXFIRGB XVMGVI“s«=43iE=45:R 

ETURN 

450 A$="Z HNZQO QZFHXS ZIVZ"sBt="GSVIV 
RH Z HNZOD HOLG HVCG 6L 6SV OZFMX 
STZGV": 44=44:RETURN 

Extended descriptions. 

460 REH 

470 IF fi=10 AND (D3=N1 OR D3=N2) THEN 
Ct="GSV NLHHBVI’H XZTV RH LKVH" 

480 IF A=12 AND D5=N0 THEN C4="GSV XZY 
RHVG RH QLXPVH" 

490 IF A=12 AND D5=N1 THEN Ct="SSV XZY 
RHVG RH LKVH* 

500 IF A=20 AND D6=N0 THEN Ct="GSV HXI 
VVH RH YOZHP" 

510 IF A=20 AND D6=N1 THEN Ct=“Z NLERV 
RH YVRHT KOZBVH LN GSV HXI VVH" 

520 IF A=26 AND D9=N0 THEN Ct="6SV HZU 

V RH QLXPVH" 

530 IF A=26 AND D9=N1 THEN Ct="6SV HZU 

V RH LKVH" 

540 IF A=27 AND E2=N0 THEN Ct="GSV XLN 
KFGVI RH ZXGREV" 

550 IF A=27 AND E2=N1 THEN C$="GSV XLN 
KGVI RH HVHGILBVH" 

560 IF A=36 AND E6=N0 THEN Ct="GSV IVZ 
XGLI HLLI RH URINOB OLXPVH" 

570 IF A=36 AND E6=N1 THEN Ct="GSV IVZ 
XGLI HLLI RH LKVH“:H=41 
580 IF A=45 AND E9=N0 THEN Ct="GSV OZF 
HXS TZGV RH XQLHVH" 

590 IF A=45 AND E9=N1 THEN Ct="GSV OZF 
HXS TZGV RH LKVH“:E=46 

Generate the list of visible Items and 
available exits. 

600 At(LEN(A$)+N1IF LEN(B$)>N3 T 
HEN Bt(LEN(Bt)+Nl)="." 

610 IF LEN<Ct)>N3 THEN Ct<LEN(Ct)+Nl)= 

K 0 
« 

650 IF NONO THEN Et="HLI6S ■ 

660 IF SONO THEN E$(LEN(Et)+Ni)="HLF6 
S " 


))>>))>>)> 


670 IF H)N0 THEN EtlLEN(Et)+Nl)=’DVH6 

B 

680 IF E>N0 THEN Et(LEN(E$)+Nl)=*VZHG 

B 

690 IF E$<>"“ THEN Et=Et(Nl,LEN(E$)-Nl 
) 

Describe current location, visible items, 
and available exits. 

700 GRAPHICS NOsPRINT "YOU ARE IN “?:P 
t=At:G0SUB N4sPRINT :IF Bt<>“" THEN P$ 
=Bt:G0SUB N4 

710 IF C$<>“" THEN Pt=Ct:GOSUB N4 
720 Pt=" "SPRINT SPRINT " OBJECTS YOU C 
AN SEEs 'sFOR T=N1 TO 16 
722 IF A=I(T) THEN Pt=It(IP(T) f IPIT+Nl 
I-NlJsGOSUB N4 

730 NEXT TsIF Pt=" " THEN P$=“HLGSRHT* 
sGOSUB N4 

732 ? s? " EXITSs "sPt=Et:GOSUB N4s? 

740 IF <A=40 OR A=35 OR A=30 OR A=31> 

AND H14)=N0 AND F3=N0 THEN Pt="GSV HN 

ZOO YOZXP HVERXV RH YORHPRHT"sGOSUB N4 

750 IF A=36 AND I(N4)=N0 AND F3=N0 THE 

N Pt="GSV HNZOO YOZXP HVERXV RH UOZHSR 

HT YIRTSGOB"sGOSUB N4 

760 IF F4=N0 THEN 770 

762 P$="GSV XLNKF6VI HZBHs"sGOSUB N4sP 

t=STR$IF4):PtILEN(Pt)+Nl)= 8 NRHF6VH FH 

GRO HVHGIFXGRLH"sGOSUB N4 

770 IF D3=N1 THEN PRINT sPt="t * » ZOR 

VH NLHHGVI ZGGZXPRHT t t TsGOSUB N4 

780 IF D7=N1 OR E0=N1 OR E3=N1 OR E7=N 

1 THEN PRINT sPt="t * t HVXFIRGB KZ6IL 

0 ZGGZXPRHT * t »"sGOSUB N4 

Get and Interpret command. 

790 PRINT SPRINT H COHHAND "siINPUT VOts 
GOSUB 6:PRINT 

800 FOR T=N1 TO N4sIF Vt=VB$(TtN3-N2,T 
4N3-N2) THEN Vt=VB$(TtN3-N2,T*N3) 

810 NEXT T 

820 IF LEN(Vt)<N3 THEN 700 

830 V11=Vt( N 1 ,N3) s V2t=Vt (LEN IVt )-N2 ) 

840 FOR T=N1 TO 17s IF Vlt=VBt(TtN3-N2, 
T4N3) THEN V1=T 
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850 NEXT T:IF Vl=NO THEN P$= a R HLH’G F 
HHVIHGZNH DSZG BLF DZHG.“:GQSUB N4:GOT 
0 LI 

860 FOR T=N1 TO 16jIF V2$=I»(IP<T+N1)- 
N3,IPTT+N1)-N1> THEN V2=T 
870 NEXT T 

880 ON VI GOTO 900,940,980,1050,1130,1 

310,1370,1390,1560,1620,1660,1790,1860 

,1910,2010,2170,2250 

890 GOTO LI 

Handle commands. 

900 IF N=NO THEN 80TO L2 
910 IF D3=N1 THEN P4= a 6SV NLHHGVI YOLX 
PH GSV VCRG a :GOSUB N4:G0TQ L2 
920 IF D7=N1 OR E3=N1 THEN GOTO L2 
930 A=N:G0TO LI 
940 IF S=N0 THEN GOTO L2 
950 IF 8=24 AND D8ON0 AND E20N1 THEN 
D7=N1:G0SU8 L4 

960 IF 8=30 AND E4ON0 AND E20N1 THEN 
E3=N1:GOSUB L4 
970 A=S:GQTQ LI 
980 IF H=NO THEN 60T0 L2 
990 IF D3=N1 THEN P*="GSV NLHHGVI YOLX 
PH GSV VCRS":GOSUB N4:G0T0 LI 
1000 IF E0=N1 OR E3=N1 OR E7=N1 THEN 8 
OTQ L3 

1010 IF H=41 AND F3=N0 THEN P*= a IZHRZG 
RLH UILN GSV IVZXGLI SRGH BLF":GOSUB N 
4:GOTO 2520 

1020 IF W=30 AND E4ON0 AND E20N1 THE 
N E3=N1:G0SUB L4 

1030 IF H=27 AND E8ON0 AND E20N1 THE 

N E0=N1:GOSUB L4 

1040 A=H:SOTO LI 

1050 IF E=N0 THEN GOTO L2 

1060 IF E0=N1 OR E3=N1 OR E7=N1 THEN G 

OTO L3 

1070 IF E=27 AND ElONO AND E20N1 THE 
N E0=N1:GOSUB L4 

1080 IF E=44 AND E8ON0 AND E20N1 THE 
N E7=N1:GOSUB L4 
1090 A=E:GOTO LI 

1100 P$=“GSV HVXFIRGB TFZIN YOLXPH GSV 
VCRG":GOSUB N4:60T0 LI 


1110 Pt= a GSVIV RH HL DZB GL TL GSZG HR 
IVXGRLH":60T0 N9 

1120 PI=’Z HVXFIRGB ZHNILRH ZDZRGH BLF 
B :GOSUB N4;RETURN 

1130 IF AON1 OR V2$<> , LXP a THEN 1140 
1132 .P$=”GSV ZRIOLXP LKVHH ZHH BLF ZIV 
YOLDM LFG RHGL GSV EZXFFN LU HKZXV" 

:GOSUB N4:GQTQ 2520 
1140 IF A<>12 OR V2$<> a MVS" OR D5ON0 
OR I(N2)=N0 THEN 1150 
1142 P$="BLF OFHG ZIVH’G HGILHT VHLFTS 
GL ULIXVRG LKVH":GOSUB N4:G0T0 LI 
1150 IF A<>12 OR V2*O a HVG a OR D5ON0 
OR I(N2)ONO THEN 1160 
1152 Pt="GSV XILDYZI SVOKVH. GSV XZYR 
HVG RH HLD LKVH":60SUB N4:D5=N1:I(N5 
)=ABS(I(N5)):G0T0 LI 
1160 IF A=12 AND V2*="HVG a AND D5=N1 T 
HEN P$="GSV XZYRHVG RH ZOIYZHB LKVH a :G 
OSUB N4:BOTO LI 

1170 IF A=16 AND V2$=”VHP" THEN ? OK$s 
I(6)=ABS(I(6))sG0T0 LI 
1180 IF A=17 AND V2$= a VHP" THEN PRINT 
0K$:I(7)=ABS(I(7t):G0T0 LI 
1190 IF A=26 AND V2$= a ZUV“ AND D9=N1 T 
HEN P$= a GSV HZUV RH ZQIVZWB LKVH”:GOTO 
N4iG0T0 LI 

1200 IF A=26 AND V2t="ZUV a AND D9=N0 T 
HEN P4= a R NLH’6 SZEV GSV PVB GL LKVH G 
SV HZUV":GOTO N9 

1210 IF A=31 AND V2$='VHP" THEN P*="LP 
BLF URHH HLGSRHT RHHRHV“:GQTQ N9 
1220 IF A=32 AND V2$=’VHP a THEN PRINT 
0K$:I(14)=ABS(I(14)>:BOTO LI 
1230 IF A=36 AND V2*=“LLI* AND E6=N1 T 
HEN Pt= a GSV HLLI RH ZOIVZHB LKVH'iGQTO 
N9 

1240 IF A(>36 OR V2$<> a LLI a OR E6ON0 
THEN 1260 

1242 IF I (6)ONO THEN P$="BLF HLH’G SZ 
EV GSV PVB GL GSV HLLI":GOTO N9 
1250 IF E5=N0 THEN Pt= a GSV IVZXGLI YFR 
OHRHT RH HLG KIVHHFIRAVH. B 

LF ZIV YOLDH RHGL GSV EZXFFN":GOTO N8 
1260 IF A=36 AND V2*="LLI" AND I(6)=N0 
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THEN P$=”GSV NLLI RH HLD LKVH"jE6=N1: 
GOTO N9 

1270 IF A=41 AND V2$= a HV0“ THEN P$="GS 
y KZHVO RH ORINOB OLXPVH”:GOTQ N9 
1280 IF A=45 AND V2$=“LXP" AND E9=N1 T 
HEN P$=”GSV ZRIOLXP RH ZQIVZNB LKVH":G 
OTO N9 

1290 IF A=45 AND V2t="LXP” AND E9=N0 T 
HEN P*="GSVIV ZIVH’G ZNB ERHRYOV XLHGI 
LOH H :BOTO N9 

1300 P$=”R XZH’G HL GSZG”!GOTO N9 
1310 IF V2$=”GVI" OR V2t= B LRt4" THEN Pt 
="NLH’B YV IRHRXFOLFH 0 :GOTO N9 
1320 IF V2=N0 THEN P$="R XZH’G NL GSZG 
":GQTO N9 

1330 IF I(V2)=N0 THEN Pt="BLF ZOIVZNB 
SZEV GSZG”!GOTO N9 

1340 IF AOKV2) THEN Pt="R NLH’B HW 
RG SVIV“:GOTO N9 

1350 IF P4>=N8 THEN P*=”HLIIB, BLF XZH 
’G XZIIB ZMBGSRHT NLIV”:GQSUB N4:G0T0 
LI 

1360 P4=P4+NliI(V2)=N0iPRINT OKtiGOTO 
LI 

1370 IF V2=N0 THEN P»="BLF HLH’6 SZEV 
GSZG”!GOTO N9 

1380 P4=P4-N1:1 (V2)=AsPRINT OWiGOTO L 
1 

1390 IF KN5IONO THEN P$=”BLF NLH’G S 
ZEV Z DVZKLH”:GQTO N9 
1400 IF A=N1 AND V2t=“LXP" THEN P$="BL 
F ZIV YOLDH LFG LU GSV ZRIOLXP RHGL GS 

V EZXFFN LU HKZXV":GOTQ N8 

1410 IF A=27 AND V2$="GVI” THEN P$="GS 

V XLNKFGVI RH WVHGILBV« b !E2=N1:E0=N0jG 
OTO N9 

1420 IF A=38 AND V2*="GVI” THEN P*="GS 

V HSLG IVUOVXGH LUO LU GSV XLNKFGVI”:G 
OTO N8 

1430 IF A=41 AND V2$=”GVI” THEN P$="GS 

V DSLOV HFNXOVZI IVZXGLI RH VCKQLHRHT" 
:GOTO N8 

1440 IF V2t="RNH" OR V2t="YLG" OR V24= 
“ILQ" OR V2$=“INH" OR V2$="ZIH" THEN V 
2$=“LRN” 


)))>))))>)) 


1450 IF V2$<)"GVI” AND V2$<>“LRN” THEN 
P$="GSV OZHVI HSLG SZH HL VUUVXG“!GQT 
0 N9 

1460 IF V2$=”GVI” AND D3=N0 THEN P$=“R 
NLH’G HW ZHB NLHHGVI SVIV*:6QT0 N9 
1470 IF V2f="LRH" AND D7=N0 AND E0=N0 
AND E3=N0 AND E7=N0 THEN P$=“R NLH’G H 
VV ZHB ZHNILRNH SVIV’iGOTO N9 

1480 T=INT(1004RND(NO))+1!IF TXP2+P3+5 
0 THEN P$=”BLF URIV ZHN NRHH"iGOTD N9 
1490 IF D30N1 THEN 1500 

1492 P$=“BLF SRG GSV NLHHGVI“iGOSUB N4 
:D4=D4-(<10+P2+P3)/N2>:IF D4>N0 THEN 1 
540 

1494 D3=N0:D4=N0:P$="BLF SZEV PROOVN R 
G'jGOTO N9 

1500 IF D70N1 THEN 1510 

1502 P$="BLF SRG GSV ZHNILRN”:GOSUB N4 

:D8=DB-(5+P2+P2)/N2iIF DB<=NO THEN D7= 

N0:D8=N0sPi=“RG RH NVHGILBVN'iGGTO N9 

1504 GOTO 1540 

1510 IF EOON1 THEN 1520 

1512 P$="BLF SRG GSV ZHNILRN”iGOSUB N4 

:El=El-fN5+P2+P3)/N2:IF E1<=N0 THEN EO 

=NO:El=NOiP$=“RG RH NVH6ILBVN“!G0T0 N9 

1514 GOTO 1540 

1520 IF E30N1 THEN 1530 

1522 P$=“BLF SRG GSV ZHNILRN“:GOSUB N4 

iE4=E4-(N5+P2+P3)/N2:IF E4<=N0 THEN E3 

=N0iE4=N0iP$=”RG RH HVHGILBVN 1 *:GOTO N9 

1524 GOTO 1540 

1530 IF E70N1 THEN 1540 

1532 P$="BLF SRG GSV ZHNILRN"iGOSUB N4 

:E8=E8-(N5+P2+P3)/N2:IF E8<=N0 THEN E7 

=NO:EB=NO!P$="RG RH HVHGILBVN“:G0TO N9 

1534 GOTO 1540 

1540 IF D3=N1 THEN P*="RG RH HGROO ZOR 
EV”:GQTQ N9 

1550 P$="GSV ZHNILRN RH HGROO UFHX6RLH 
RHT":GOTO N9 

1560 IF V2=N0 THEN P$=“R XZH’6 NL GSZG 
":GOTO N9 

1570 IF HV2)ONO THEN P$=“R NLH’G SZE 
V GSZG”!GOTO N9 
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1580 IF V20N9 AND V2<>14 THEN PI="R X 
ZH’6 ML GSZG*:GOTO N9 
1590 IF <V2=N9 AND AM4) OR (V2=14 AND 
A=38) THEN PI="HLGSRHT SZKKVHH":GOSUB 
N4 

1600 IF V20N9 OR A<>3B THEN 1610 
1602 F4=35:P*="GSV XLNKF8VI IVKORVH: ’ 
YZHV NVH6IFXB HVJFVHXV HBZI6VH'■sGDSU 
B N4:PI=°HVHGIFX6RLH RH: " 


1604 PI(LENTPI)+N1)=STRt(F4);PI(LEN(PI 
) +N1)=" NRHFBVH":P4=P4-N1:I(9)=100:GOT 
0 N9 

1610 IF V2=14 AND A=45 THEN PI="GSV TZ 
6V LKVHH*:E9=N1:GQT0 N9 


1620 IF V2O10 THEN P*=*HLM'G YV IRHRX 
FOLFH":GOTQ N9 

1630 IF KIOIONO THEN PI="BLF HLH’G S 
ZEV 6SZ6":60T0 N9 

1640 PRINT 0KI:I(10)=50:P4=P4-N1:P1=P1 
+N5+P3:IF P0<P1 THEN P0=P1 
1650 GOTO LI 

1660 IF A=N1 AND V2I="0FV" THEN PI=*6S 
V ZRIOLXP LKVHH,.. BLF ZIV YOLDH LFGRN 
BL 6SV EZXFFN LU HKZXV":60T0 N8 

1670 IF A=6 AND V2$="0FV“ THEN Pt=*Z H 
GIZHTV, LIZHTV TOLD XLEVIH BLF ZHH GSV 
H UZHVH ZDZB":G0TQ N9 

1680 IF A=10 AND V2t=*IVU" AND D3=N1 T 
HEN Pl="HLGSRHT SZKKVHH*:GOTO N9 
1690 IF A=10 AND V2t="IVH" THEN D3=N1: 
P$="ZH ZORVM NLHHGVI RH IVOZHVN. R6 R 
H Z6GZXPRHT BLF"*.GOTO N9 


1700 IF A=13 AND V2t="0FV“ THEN A=34:P 
l="Z UDZHS LU 0RTS6 BVNKLIZIROB YORHNH 
BLF":G0TQ N9 

1710 IF A=20 AND V2$="IVW“ AND D6=N0 T 
HEN PI="HL6SRHT SZKKVHH 0 :60T0 N9 

1720 IF A=20 AND V2t=“IVH“ THEN D6=N0: 
P*="GSV HXIVVM TLVH YOZHP":GQTO N9 
1730 IF A=20 AND V2I="0FV" THEN D6=Nls 
P$="GSV HXIVVH ORTSGH FK”:BOTO N9 

1740 IF A=31 AND V2$="0FV” THEN E5=N:: 
PRINT OKI:SOTO LI 

1750 IF A=34 AND V2*= B IVH* THEN A=13:P 


l="Z UDZHS LU 0RTS6 BVNKLIZIROB YORHNH 
BLF":GOTO N9 

1760 IF AMO AND V2$="IVH" THEN F3=N0: 
PRINT OKI:GOTO LI 

1770 IF AMO AND V2I="QFV" THEN F3=N1: 
PRINT QKIiGOTO L! 

1780 PI=“HLGSRHT SZKKVHH":GOTO N9 
1790 IF A=22 AND V2I="VVH B THEN PI="BL 
F XZH HVV HLGSRHT LU RHBVIVHG LH BSVIZ 
HZ I":GOTO N9 

1800 IF V2=NQ THEN Pt=“R HLH’G SZEV GS 
ZG":GOTO N9 

1810 IF KV21ON0 AND AOHV2) THEN PI 
="R HLH'G SZEV 6SZG":G0T0 N9 
1820 IF V2=N3 OR V2=13 THEN Pt="R HVV 
HLGSRHT HKVXRZO":GQTO N9 

1B30 IF V2=N9 THEN Pt="HLIIB, LHOB Z X 
LNKFGVI XZH IVZW Z KILTIZN’-.GOTO N 
9 

1840 IF V2=16 THEN Pt="GSV KOZHH ZIV H 
VZOVH...LHQB XLNNZHN XZH LKVH GSVN": 
GOTO N9 

1B50 PI="R XZH’G IVZH GSZG":GOTO N9 
1860 GRAPHICS N0:Pt="t t t KOZBVI’H RH 
EVHGLIB t t l":GOBUB N4:PRINT 

1870 FOR T=N1 TO 16:IF I(T)=NO THEN PI 
=II(IP(T),IP(T+N1)-N1):G0SUB N4 
1880 NEXT T 

1890 CLOSE INI:OPEN #N1,N4,N0,"K:":GET 
fNl,T:CLOSE #N1 
1900 GOTO 2410 

1910 IF V2=N0 THEN Pt="R XZH’G WL GSZG 
":GQTQ N9 

1920 IF IiV2K)N0 THEN Pt=“R WLH'G SZE 
V GSZG":GOTO N9 

1930 IF V20N1 OR A<>12 OR D5ON0 THEN 
1940 

1932 PI="GSV XZYRMVG RH WVHSILBVW 8 :D5= 
Nl:I TNI)=100:1!N5)=ABS(I(N5)):P4=P4-N1 
:GOTO N9 

1940 IF (V2=N1 OR V2=15) AND (D3=N1 OR 
D7=N1 OR E0=N1 OR E3=N1 OR E7-NU THE 
N I(V2)=100:P4=P4-100:GOTO 1490 
1950 IF (V20N1 AND V2<>15) OR AON1 T 
HEN 1960 
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1952 P*=‘GSV ZRIOLXP RH HVHGILBVH... BL 
F ZIV YOLDH LFG RNGL GSV EZXFFN LU 
HKZXV“:GOTO NB 

1960 IF (V20N1 AND V2<>15) OR A<>36 0 

R E6ON0 OR E5ON0 THEN 1970 

1962 P$="GSV HLLI RH HVHGILBVH...BLF Z 

IV YOLDH RHGL GSV FHKIVHHFIRAVH IVZXGL 

I YFROWRMT":GOTD NB 

1970 IF (V20N1 AND V2<>15) OR A<>36 0 

R E6ON0 OR F3ON0 THEN I960 

1972 Pt="GSV HLLI RH HVHGILBVH. BLF Z 

IV YLNYZIWVH DRGS IZHRZGRLH'sGOT 
0 NS 

1980 IF !V2=N1 OR V2=15) AND A=36 AND 
E6=N0 THEN PI="6SV HLLI RH HVHGILBVH-.- 
E6=N1:1(V2)=100:P4=P4-N1;GOTO N9 
1990 IF V20N1 AND V2<>15 THEN 2000 
1992 P$="GSV "iP$(5>=I*(IP(V2),IP(V2+N 

1) -N1):GQSUB N4:P$=“SZH HL ZUUVX6",*I<V 

2) =100:P4=P4-N1:GOTO N9 
2000 GOTO 1370 

2010 IF V2=N0 THEN P$= H R XZH’G HL GSZG 
°:GOTO N9 

2020 IF I (V21ON0 THEN P*=“R HLH’G SZE 

V 8SZB":GOTO N9 

2030 IF V2=N5 AND D3=N1 THEN V2f="GVI* 
2040 IF V2=N5 AND (D7=N1 OR E0=N1 OR E 
3=N1 OR E7=N1) THEN V2I="LRH“ 

2050 IF V2=N5 THEN 1390 

2060 IF V2=N4 AND F3=N0 AND <A=40 OR A 

=35 OR A=30 OR A=3l) THEN P$=”GSV YOZX 

P HVERXV RH YORHPRHT’sGOTO N9 

2070 IF V2=N4 AND F3=N0 AND A=36 THEN 

P*=-GSV YOZXP HVERXV RH UQZHSRHT YIRTS 

GOB’sGOTO N9 

20B0 IF V2=N4 THEN Pt="BSVIV ZIVH'G ZH 
B ERHRYOV XLHGILOH LH GSRH HVERXViGO 
TO N9 

2090 IF V2<>12 THEN 2100 

2092 I!12)=A:P4=P4-N1:I$(IP(12),IP(12) 

+N4)="ZINVH":F2=35:P$=“GSV YLNY DROO V 

CKOLHV RH 35 NRMFGVH”:GOTO N9 

2100 IF V2=N2 AND A=12 AND D5=N0 THEN 

D5=N1:P$= B GSV XZYRHVG RH HLD LKVH"iI(N 

5)=ABSU(N5)):GOTO N9 


2110 IF V2=N2 AND A=12 AND D5=N1 THEN 
P$='GSV XZYRHVG RH ZOIVZHB LKVH“:60T0 
N9 

2120 IF V2=7 AND A=26 AND D9=N0 THEN D 
9=N1:1 (16)=ABS(HI6)):P$="GSV HZUV LKV 
HH 0 !GOTO N9 

2130 IF V2=ll THEN 2140 
2132 Pi="DSZG HL BLF DZH6 NV GL HL DRG 
S GSV°:GQSUB N4.-P$=I$(IP(V2) ( IPIV2+N1) 
-N1):P$(LEN(P4)+N1)=“?“!G0T0 N9 
2140 IF IINBIONO THEN P$=*GSVIV ZIVH’ 
G ZHB YZGGVIRVH ULI GSV IZHRL":GOTO N9 
2150 IF F2=N0 THEN 2160 
2152 P$="Z ELRXV HZBH ’YLNY HGZGFH: 
P$<LEN(P$)+l)=STR*(F2hP$(LEN(Pt>*l)=" 
NRHFGVH“iGOSUB N4 

2154 P$="FHGRO HV6LHZGRLH’“:60T0 N9 

2160 Pt=“GSV IZHRL RH HROVHG"sBOTO N9 

2170 GRAPHICS N0:P$="» * t KOZBVI’H HG 

ZGFH * I fsGOSUB N4:PRINT 

2180 Pt="XFIIVHG SRG KLRHGH = ":Pt(LEN 

(P$)+Nl}=STRtIPl)sGOSl)B N4 

2190 P$="HVCGVIRGB ZGGIRYFGV= “:P$(LEN 

!P$)+N1> =STR$(P2):GOSUB N4 

2200 Pt="OFXP ZGGIRYFGV = "sPJILEN 

(PI)+Nl)=STRi(P3);GOSUB N4 

2210 REH 

2220 CLOSE #N1:0PEN #H1,N4,N0,“K:'iGET 
IN1,T:CLOSE #N1 
2230 REH 

2240 GOTO 2410 . 

2250 GRAPHICS N0:P$="GAHE OVER"!GOSUB 
N4:60T0 2530 

Update player status. Conduct compbat 
if appropriate. 

2260 IF F2ON0 THEN F2=F2-N1:IF F2<=N0 
THEN 2440 

2270 IF F4ON0 THEN F4=F4-N1:IF F4<=N0 
THEN 2480 

2280 IF P1<P0 THEN P5=P5+0.5jIF P5=N1 
THEN P5=N0:P1=P1+N1 
2290 IF D3=N0 AND D7=N0 AND E0=N0 AND 
E3=NQ AND E7=N0 THEN 2400 
2300 T=INT(RND(N0)I100+N1)iPRINT 
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2310 IF D3=N1 THEN P$=“GSV NLHHGVI ZGG 
ZXPH";GOSUB N4 

2320 IF D30N1 THEN Pt="GSV HVXFIRGB Z 

HHILRH HSLLGH...“:60SUB N4 

2330 IF T>80-(P2+P3) THEN P$="R6 NRHHV 

H":GOSUB N4:G0T0 2400 

2340 Pl=Pl-INT(RND(N0)tN5)-INT(RND(N0) 

IN5)-INT(RND(N0)tN5)-INT(RND(N0)tN5)-2 

4+P3 

2342 IF D30N1 THEN Pl=Pi+N5 

2344 IF PI<NO THEN 2520 

2390 P$="BLF ZIV SRG":GOSUB N4 

2400 IF V1=0 OR VI>4 OR D3+D7+E0+E3+E7 

>0 THEN FOR 11= N1 TO 150:NEXT ZZ 

Initialize for new turn. Jump to 
appropriate room description. 

2410 V0f="":Vt="“:Vll=*“:V2*="":Vl=N0: 

V2=N0:A$=“":Bt:Ct=“":Df=*":Et=*":N= 

N0:S=N0:H=N0:E=N0 

2420 IF A>45 THEN 2560 

2422 G0SUB Atl0:G0TQ 470 

Evaluate end-game conditions and 
display appropriate messages. 

2440 GRAPHICS NO:IF A=46 THEN F2=-1:G0 
TO 2560 

2450 PI="GSV KSLGLN YLNY VCK0LHVH...GS 
V VHGRIV XLNK0VC RH WVHGILBVH":60SUB N 
4 

2460 P$="BLF SZEV YVVH PR00VH YB GSV U 
LIXV LU GSV YOZHG*:GQSUB N4 
2470 PRINT .-PRINT :G0TQ 2530 
2480 GRAPHICS NO:IF A=46 THEN F4=-1:G0 
TO 2560 

2490 IF A=3B THEN P$="GSV XLNKFGVI UOZ 
HSVH YIRTSGOB, VNRGGRHT HKZIPH 

RN ZOO HRIVXGRLMH":60SUB N4 
2500 Pt="GSV XLNKOVC HFWWVHQB VCKOLHVH 
RHGL NROORLMH LU KRVXVH":BOSUB N4 
2510 Pt="BLF ZIV PROQVH YB GSV UZOORNT 
HVYIRH ZILFMW BLF“:G0SUB N4:PRINT :P 
RINT :SOTO 2530 

2520 PRINT :P$="BLF ZIV HVZH!":60SUB N 
4 


2530 PRINT :PRINT H D0 YOU WANT TO PLAY 
AGAIN*;:INPUT A* 

2540 IF A$(N1,N1)="B“ THEN RUN 
2550 GRAPHICS NO:END 
2560 P$="GSV HKZXV HSRK HFHHVHQB ORUGH 
RHGL LIYRG ZILFHH GSV K0ZHV6":G0SU 
B N4 

2570 IF (F2=N0 OR (F2ON0 AND 1(12)04 
1)) AND F4=N0 THEN 2574 
2572 GOTO 2580 

2574 Pt="BLF HRHH’G HVHGILB GSV YZHV. 

BLF SZEVUZROVH BLFI NRHHRLH.":GOSUB N 
4:PRINT : GOTO 2530 

2580 P$ s "UILN Z WRHGZHXV, BLF XZH HVV 
GSV ZORVHYZHV VCKOLBV:GQSUB N4 
2590 IF IU61ON0 THEN P*='BLF HRHH’G 
IVXLEVI GSV HVXIVG KOZHH HVVHVH YB H 
GZI XLNNZHH":60SUB N4:PRINT :GOTO 2530 
2600 P$=”NRHHRLH RH Z HFXXVHH!“:GOSUB 
N4 

2610 END 

Initialize workspace. Read In Items and 
verbs. 

2620 CLR :DIH 11(300),1(16),IP(17),VB* ' 
(51) 

2622 DIH V$!20),V1*(3),V2$(3),A*(120), 
B$(70),C4(40),D$(40),Et(40),P$(120) 

2624 DIH Zt(40),0Kt(3),VOt(2O) 

2626 NO=0:N1=1:N2=2:N3=3:N4=4:N5=5:N8= 
8:N9=9:L1=2260:L2=1110:L3=1100:L4=1120 
:OKI=“OK":0K$(N3)=CHR$(253) 

2630 GRAPHICS HO 

2640 PRINT ■ OPERATION: SABOTAGE BY 
RAY SATO":? :? " ATARI VERSION BY 
RICH BOUCHARD" 

2650 It="":FOR T=N1 TO 16:READ Z*:IP(T 
)=LEN(If)tl:I$(LEN(If)+Nl)=Z*:READ Z:I 
<T)=Z 

2660 NEXT T:IP(T)=LEN(3i)+l 
2670 READ VBi 

Establish player-attribute points. Jump 
to first room. 

2700 P0=40:FOR T=N1 TO PO:PO=PO+INT(RN 
D(N0)tN2):NEXT T 
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2710 Pi=P0 

2720 P2=10jF 0R T=N1 TO P2:P2=P2+INTTRH 
D(NO)tN2):MEXT T 

2730 P3=10:F0R T=N1 TO P3:P3=P3+INT(RN 
D(N0)tN2):NEXT T 

2740 04=50:D8=D4sE1=D4:E4=D4iEB=D4:FOR 
T=N1 TO D4:D4=D4+INT(RND(NO)tN2):D8=D 
8+INT(RND(N0)tN2) 

2742 E1=E1+INT!RND!NO)»N2):E4=E4+INT(R 
ND(NO)tN2):E8=E8+INT(RND(NO)IN2): NEXT 
T 

2750 A=N1:P4=N1 
2760 SOTO 2410 


Item and verb data. 

2770 DATA KDZH6RX VCKOLHREV,0,XILDYZ1, 
7,XZOVMHZI,8,HNZOQ YOZXP HVERXV,9,OZHV 
I KRHGLO,-12,HVXFIRGB PVB,-16 
2772 DATA VOVXSILHRX XLH6IL0 YZ6LN,-17 
,YZB6VIRVH,18,XLNKFBVI NVH6IFXB KILTIZ 
N,21,HROEVI KRQQ,23 

2774 DATA KLI6ZY0V IZNRL,25,OZITV KSL6 
LH YLNY,28 

2780 DATA TZOZXBRX XSZIG,32,OZFMXS HBH 
BVN XZHHV66V,-32,MRGILTOBXVIRH,39,HVXI 
VB K0ZNH,-26 

2790 DATA HLIHLFDVHVZHLKVTV6HILHSLRHHV 
ZBKFHIVZRHE6SIFHVHBZJFR 
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by Victor A. Vernon Jr. 

Leyte is a sea-battle simulation for an 
Atari with 16K RAM. 

After the U.S. Central Pacific 
(CINCPAC) forces under Admiral 
Nimitz had taken the islands of Pelelu 
and Angour, and MacArthur’s forces 
had secured New Guinea, President 
Roosevelt met with MacArthur and 
Nimitz. MacArthur convinced the 
President that the next objective ought 
to be the liberation of the Philippines, 
thereby tearing the Japanese empire in 
two, isolating the home islands from 
the oil and wealth of the Indies. 

The American plan was to invade the 
island of Leyte in the center of the 
Phillipines with the combined forces of 
MacArthur’s Eighth Army and Ad¬ 
miral Kinkaid’s Seventh Fleet, with 
Admiral Halsey’s Third Fleet protec¬ 
ting the landing attempt from disrup¬ 
tions from the Imperial Fleet. This 
would mark the first joint operation by 
the two American Pacific Fleets. 

The Seventh Fleet was mainly an in¬ 
vasion fleet, consisting of troop 
transports and LST’s. Its only capital 
ships were in a bombardment group of 
old battleships (some of them veterans 
of Pearl Harbor), a few cruisers, and 
destroyers with escorts. This group was 
not prepared for large-scale naval 
engagements, and lacked both 
torpedoes and armor-piercing bombs. 

Fortunately, the Third Fleet was 


Atari version by Alan J. Zett 

much better equipped, with its new 
Essex class carriers, each with 100 air¬ 
craft, and its several lighter carriers, 
Iowa class battleships, heavy and light 
cruisers, and destroyers. The combina¬ 
tion of the two Fleets was the greatest 
armada ever assembled. 

The Japanese, woefully outclassed, 
developed a plan, known as SHO-1, in¬ 
tended to defend the core of their Em¬ 
pire and win an agreement that would 
preserve as much of it as possible. 
Their strategy was to draw the 
Americans out on a limb, then cut off 
the limb. With the Leyte landings, they 
were prepared for that surgery. 

SHO-1 was founded upon two prin¬ 
ciples: 1) The Imperial Fleet was no 
match for the Third Fleet; 2) The 
Seventh Fleet was no match for the Im¬ 
perial Fleet. 

The Japanese would therefore have 
to neutralize the Third Fleet, leaving 
the Seventh at the mercy of the Im¬ 
perial Fleet. This would require perfect 
timing and fabulous luck. Amazingly, 
SHO-1 succeeded in almost every 
detail. Only an error of judgement 
denied the Japanese full victory. 

The Japanese forces were divided in¬ 
to three fleets: the Northern, the Cen¬ 
tral, and the Southern. The Northern 
Fleet’s mission was to lure Admiral 
Halsey and the Third north, away from 
Leyte, while the Central and Southern 
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Fleets drove the Americans out of the 
Philippines. 

The Southern force was to sail 
through the Suriago Strait, which led 
to the southern portion of Leyte Gulf. 
The Central force, under Admiral 
Kurita, was to be the main attack 
force. It would sail through the 
Sibuyan Sea, through the San Bernar¬ 
dino Strait, then turn south around the 
island of Samar to enter Leyte Gulf 
from the north. The Central and Nor¬ 
thern forces were to meet early on 
October 25, 1944, and together wreak 
havoc on the American transports in 
the harbor. 

Let us now briefly review the events 
of October 20 through 25. Remember 
that this was the largest naval battle 
ever fought; it covered thousands of 
square miles of ocean, and involved 
every type of warship, from the 
smallest PT boat to the largest bat¬ 
tleship. If this brief account proves 
confusing, you might wish to refer to 
Edwin P. Hoyt’s The Battle of Leyte 
Gulf and Admiral Morrison’s Naval 
Operations in World War II. 

On October 20, the Americans land¬ 
ed on the western shore of Leyte 
Island. Almost immediately, SHO-1 
was put into operation. The landings 
were. accomplished with only some 
Japanese air attacks based from 
Luzon. Two days later, American sub¬ 
marines spotted the Japanese Central 
force in the Sulu Sea. At first light, 
Halsey sent out his search planes. They 
found the Japanese in the Subayan 
Sea, sailing east toward San Bernar¬ 
dino Strait. Halsey immediately 
launched a full air strike. 

About this time, Halsey ordered the 
formation of a new task group, under 
Admiral Lee, whose job it was to guard 
the San Bernardino Strait if and when 
Halsey found the Japanese carriers. 
Meanwhile, The Japanese Northern 
force was trying desperately to be 
found, but was having little success. 
Although they had broken radio 
silence, atmospheric conditions 


prevented Halsey’s radio men from 
detecting them. 

Halsey’s air strike found its target, 
and, after inflicting some damage, 
misinterpreted a Japanese withdrawal 
as a full retreat. By now, the Northern 
force had been discovered, and Halsey 
decided to attack them. He took his 
special task force, which had been 
guarding the strait, with him, but a 
confusion occurred that left the 
Seventh Fleet’s commander, Admiral 
Kinkaid, with the impression that the 
strait was still guarded. As a result, 
Kinkaid deployed no forces to the 
strait, hoping to concentrate all his ef¬ 
forts against the Japanese Southern 
force. 

The night of October 24-25 was most 
eventful. Halsey and the Northern 
force were approaching one another. 
The Central force had turned east, and 
was heading for the mouth of San Ber¬ 
nardino Strait. The Southern force was 
sailing north through Surigoa into a 
trap, laid by Admiral Kinkaid, and was 
utterly destroyed. 

October 25 was a crucial day in the 
Pacific War. San Bernardino Strait 
was an unencumbered entrance into 
Leyte Gulf, and the Central force was 
steaming through it at 20 knots. 
Should these 22 ships reach the lan¬ 
dings, they would transform them into 
a bloody shambles, with American 
help too far to the north and south. 

The thin American defenses in the 
strait sacrificed themselves. Their 
reckless, desperate attacks, though 
continually smashed, served to scatter 
and confuse the Japanese. Kurita, the 
commander of the Central force, knew 
nothing of the Northern’s success in 
luring the Third Fleet away. He 
thought that he was driving the last 
remnants of the Imperial Fleet into a 
deadly trap. In his confusion, he 
thought that the few, light ships defen¬ 
ding Leyte were the heavy ships of the 
Third Fleet. Though he could have 
easily smashed the defenders, he turn¬ 
ed around. In the next few days, 
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Halsey’s airmen smashed Kurita’s Cen¬ 
tral force. Although SHO-1 had work¬ 
ed perfectly, all three divisions of the 
Imperial Fleet were defeated. They lost 
26 of their finest ships in four short 
days. 

What might have happened if Lee’s 
task force had been awaiting Kurita’s 
Central force at the mouth of San Ber¬ 
nardino Strait? In this simulation, you 
will be Lee, and the computer, Kurita. 
Your fleet will consist of the bat¬ 
tleships Jersey, Washington, 
Massachussetts, and Alabama; the 
cruisers Pittsburgh and Baltimore; and 
six Fletcher class destroyers. The 
Japanese fleet will be the battleships 
Yamato, Nagato, Kongo, and Hagura; 
the heavy cruisers Chokai and Sizuya; 
the light cruiser Nagara; and eight 
destroyers. 

In both fleets, the destroyers are 
considered to be a collective force. 
That is, the target for one destroyer is 
the target for all. While individual 
destroyers may be targeted and sunk, 
all of them must be sunk in order to 
destroy their force. 

The screen displays a map showing 
the Island of Samar, with San Bernar¬ 
dino to the left and Leyte Gulf to the 
right. North is the left side of the 
screen; east is the top; south is right; 
and west is the bottom. The Japanese 
will move from left to right, from San 
Bernardino to Leyte. To win, you must 
sink all seven capital ships — 
everything larger than a destroyer. If 
any get to Leyte, or if all your ships (in¬ 
cluding your destroyers) are sunk. Of 
course, the Japanese will not turn 
around. 

You can issue any of these four com¬ 
mands by pressing the appropriate 
number key: 

1 - status report 

2 - fire guns 

3 - fire torpedoes 

4 - course correction 

The status report will tell you the 
condition of each of your ships; you 
will not be told the condition of the 


Japanese ships. (The computer will tell 
you only if they are sunk, at the time 
when it checks the status of all ships.) 

If you choose to fire your guns you 
will then be asked for a target for each 
of your ships. The Japanese ships are 
numbered as follows; use the number 
to designate a target: 

1 - Yamato 

2 - Nagota 

3 - Kongo 

4 - Haguro 

5 - Chokai 

6 - Suzuya 

7 - Nagara 

8 - Destroyers (collectively) 

If a target is sunk you will be directed 
to select another. Whether or not you 
score a hit is determined by three fac¬ 
tors: 

1 - a randomly selected number 

2 - how close you are to the target 

3 - whether the target has been fired 

upon by another ship. 

The closer you are to the Japanese, 
the better will be your chances to hit 
something. The third factor comes into 
play because naval gunfire is ac¬ 
complished by first firing a round, and 
then correcting the aim by noting 
where the first shells land. This can be 
done by watching the splashes; but if 
two or more ships are firing on the 
same target, it is impossible to tell 
which splashes go with each ship’s fire. 
The Japanese avoided this by coloring 
their shells, thus giving different 
colored splashes for each ship. 

Firing torpedoes is essentially the 
same, except that only destroyers carry 
torpedoes; thus, you will only be able 
to fire at one target. Also remember 
that while a torpedo can do much more 
damage than a shell, the Mark 14 
torpedoes used by the U.S. Navy in 
World War II were notoriously 
unreliable. At times they would sink; at 
other times they would breach and ex¬ 
plode against a wave. If they did hit a 
ship, they didn’t always explode. The 
Japanese “long Lance” torpedo was 

The Best of SoftSide 73 




larger (24 inches versus 21), and it 
worked . 

Command #4 is a course correction; 
it is not necessary to access this com¬ 
mand on every turn. Your course is in¬ 
itially set in a northerly direction. To 
change this you will be prompted to 
enter a number which will lead you in 
any one of 8 directions. The Japanese 
fleet will be heading generally south at 
a flank speed, so that if they get past 
your fleet, you will not be able to in¬ 
tercept them. Also remember that you 
are a Fleet Commander, not a Ship’s 
Captain. Your orders will be for the 
fleet as a whole, and you will not be 
able to move individual ships. 

Basically that’s all there is to it: 
maneuver and fire. But remember that 
maneuvering is as important as firing. 
If you stay too far away from the 
Japanese, your chances of sinking 
anything will be very slim, and they 
will sail on to Leyte while you watch 
them go by. But if you get too close too 
soon, the Japanese will blow you out 
of the water with their superior gunfire 
and torpedoes (Japanese cruisers also 
carry torpedoes). 

Your position on the map will be in¬ 
dicated by an “A,” and the Japanese 
position by a “J.” If both fleets are at 
the same place you will see an 

Variables 

A: Location of American fleet. 


A(n,nn): Holds all pertinent 
information about the American 
fleet. 

A$(n): Names of American ships. 

Al: Course of American fleet. 

AZ: Miscellaneous. 

C: Movement counter. Determines 
when computer will check on status 
of all ships. Also helps determine if 
Japanese fire guns or torpedoes. 

G: Command variable. 

H: Hit counter. 

H(n,nn) or H(n,nn,x): Hit table; 
determines how much damage is done 
if a hit is scored. Damage is 
determined by the size of the shell, 
where it hits, and what it hit. 

I: Used in POKEing and PEEKing 
screen memory. 

1$: Keyboard input variable. 

J: Position of Japanese fleet. 

J(n,nn): Holds all pertinent 
information about the Japanese fleet. 
J$(n): Names of Japanese ships. 

JT: Number of reserve torpedoes for 
Japanese fleet. 

M: Modifier; changes range of Z, 
depending upon fleet locations. 

Ml: Temporary storage for M, 

NT: Number of reserve torpedoes for 
American fleet. 

R$: Used in status report messages. 

T: Used in arrays to signify target. 

T$: Keyboard input variable. 

T1,T2: Temporary storage variables. 
T1$,T2$: Temporary storage variables 


ss ss ss ss ss ss ss ss ss ss se 
ss ss 

SS Atari BASIC SS 

SS 'Leyte 7 SS 

SS Author; Victor Vernon Jr, SS 
SS Translator: Alan J. Zett SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS S3 

SS SS SS SS SS SS SS S3 SS SS SS 
Initialization. 


50 -DIM A(7,7),J(7 f 7),A$(120),J$(120),H 
(4,12)j11$(40),T2$(15),R$ (405 


Load the arrays. 

60 GRAPHICS 0:I=PEEK(560)+PEEK(561)$25 

6+4;I=PEEK{I)+PEEK{1+1)<256 

70 POKE 752,1:7 “ONE H0HENT PLEASE 11 ;? 

“THERE IS A LOT OF DATA TO READ\ l NT=50 

:JT=1OO:A=167:A1=-1;P0KE 82,0 

80 FOR X=1 TO 105:J$(X)=*' H :A$fX)= n *; 

NEXT X:RESTORE 

Draw the map on the screen. Map 
cannot be redrawn during the program. 

100 FOR X=0 TO 7;READ T1$,T2$:J$(XI15+ 
i)=TI$:A$(Xt15+1)=T2$:FOR Y=0 TO 7:REA 
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D Ti,T2sJ(X,Y)=Ti:ft(X,Y)=T2:NEXT Y:NEX 
T X 

110 FOR X=0 TO 4:FOR Y=1 TO 6:F0R Z=0 
TO 1:READ T1:H(X,Y+Z* 6 )=T1;NEXT Z:NEXT 
YsNEXT X 

113 FOR X=1 TO 40:T1$(X)=CHR$(160):NEX 
T XiOPEN 11,4,0,"K" 

Move the fleets, 

115 GRAPHICS Os POKE 752,1; FOR X=1 TO 1 

T.? » 

■ mimmimmmimmmm 

,,,,,,,"I ; next X 

120 POSITION 9,7:? Tl$(21) 5 :POSITION 7 
, 8 :? Tl$(17!;;POSITION 5,9:? T1K133;: 
POSITION 4,10:? Tl$(lli; 

125 POSITION 1,11:? Tl$( 6 );.-POSITION 0 
,12:? Tit(2!;:POSITION 0,13:PRINT Tl$; 
Tl$j 

127 POSITION 0,13:? 11 < SAN BERNARDINO 
STR. LEYTE GULF > "; 

130 POKE 1+371,51:POKE 1+375,33:POKE I 
+379,45:POKE 1+383,33:POKE 1+387,50 
140 POKE 82,2 

Command routine. 

150 FOR X=1 TO 1:NEXT X:C=0:H=0 
160 POSITION 2,16:GQSUB 7000:POKE I+J, 
12:POKE I+A,12 

165 READ J:IF J=999 THEN 5010 
170 H1=3:Z=INT(RND(0)131+1:IF Z=1 THEN 
J=J+40 

172 IF Z=2 THEN J=J-40 

175 IF PEEK!I+A+Al)0128 THEN 177 

176 POSITION 2,16:? " YOU’RE ABOUT TO R 
UN AGROUND!":? "I’LL CORRECT YOUR POSI 
tlON.":FOR ZZ =0 TO 500:NEXT ZZ:A1=-4Q 

177 IF A+AKO THEN A1M0 

180 A=A+A1:POKE I+A,161:P0KE I+J,170:1 
F fl=J THEN POKE I+A,138 

Display the status of the American 
ships. 

190 POSITION 2,16:GOSUB 7000:? " CQHHAN 
D_?":IF J=A+1 OFl J=fl-1 OP. J=A+40 OR J= 
A-40 THEN M1=0 


200 POSITION 2,18:? " 1, - STATUS REPQR 

T“:IF A=J THEN Ml=-1 

210 ? " 2 - FIRE GUNS":IF A=J+39 OR A= 

J-39 OR A=J+41 OR A-J-41 THEN Ml=2 

220 ? " 3 - FIRE TORPEDOES":IF A=J+1 0 

R A=J-1 OR A=J+40 OR A=J-40 THEN N1=0 

230 ? “ 4 - COURSE CORRECTION":M=N 1 

240 POKE*”764,255:FOR X=1 TO 2000: IF PE 

EK(7643=255 THEN 270 

250 GET »1,T1:IF TK49 OR Tl>52 THEN 2 

70 

255 FOR X=1 TO I:NEXT X 

260 G=VAL(CHR$(T13):QN G GOTO 280,480, 

620,730 

270 NEXT X:C=C+1:IF 02 THEN 150 
275 GOTO 240 

Changes half-turn count, and skips any 
sunken ships. 

280 FOR X=Q TO 7:IF A(X,5)<1 THEN R$=" 
SUNK":GOTO 430 
290 IF X>1 THEN 340 

300 IF A(X,4)<50 OR A(X,2)<7 THEN R*=" 
FLOATING JUNK YARD":GOTO 430 
310 IF A(X,4X100 OR A(X,2)<12 THEN R$ 
="VERY HEAVY DAMAGE":GOTO 430 
320 IF A(X,4X150 OR A(X,2X17 THEN R$ 
="MODERATE DAMAGE":GOTO 430 
330 R$= n ESSENTIALLY UNDAMAGED":GOTO 43 
0 

340 IF X>4 THEN 380 

350 IF A!X,43<50 OR A(X,2X7 THEN R*=" 
PREPARE TO ABANDON SHIP! ":GOTO 430 
360 IF A(X,4X100 OR A!X,2)<14 THEN R$ 

= 11 SEVERE DAMAGE":GOTO 430 

370 RI="LITTLE OR NO DAMAGE":GOTO 430 

380 IF X=4 THEN 420 

390 IF A(X,4X20 OR A(X,2X4 THEN Rl=“ 
SINKING!":GOTO 430 

400 IF A(X,4)<50 OR A(X,2X8 THEN R$=" 
HEAVY DAMAGE!":GOTO 430 
410 R$="LIGHT OR NO DAMAGE":GOTO 430 
420 IF A(X,4)<25 OR A(X,2X5 THEN Rl=“ 
HEAVY DAMAGE!":GOTO 430 
425 R$="UNDAMAGED" 
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Change defense factors on target. 


430 POSITION 2,16:GQ5UB 7000:? a STftTUS 

t B 
a 

440 ? A$(XI15+1,(X+l)tl5)s? R$:IF X=7 
AND A(7,5)>1 THEN ? A47,55;" AFLOAT" 
460 FOR Y=0 TO 500:NEXT Y:NEXT X 
470 GOTO 190 

Prompt for a target. Reject any non¬ 
numeric input. 

480 C=C+1:F0R X=0 TO 7:IF A(X,5)<1 THE 
N NEXT X 

Array Is subscripted 0-7, so subtract 1 
from the target. Also, change modifier to 
make target harder to hit if ship was 
was already fired upon this turn. 

490 POSITION 2,16:G0SUB 7000:? "ENTER 
TARGET FOR ";A$(X415+1,(X+1)I15):H=M1 
500 GET #1,T1:T=VAL(CHRI(T1>) 

510 IF T<1 OR T>8 THEN POSITION 2,17:? 
"ENTER NUMBER OF TARGET SHIP":? “CHEC 
K INSTRUCTIONS":GOTO 500 

If target is sunk, select another. 

520 T=T-1:M=M+J(T,7):J(T,7)=J(T,7)=J(T 
,71+0.5 

Reset hit counter to zero. 

530 IF J(T,5)<1 THEN ? J$(T*15+1,(T+l) 
115):? "NAS SUNK":FOR ZZ=0 TO 200:NEXT 
ZZiGOTO 490 

540 H=0:FOR Y=1 TO A(X,6):Z=INT((RND(0 
)tl0)+l)+H:IF Z>4 THEN 570 
545 H=H+1 

V determines where target was hit. If the 
ship firing was a battleship, and the 
target Is hit on the front or back turret 
or on the bridge, then the number of 
guns on the target Is decreased by one. 

550 V=INT(RND(0)J51:IF X<5 AND (V=0 OR 
V=1 OR V=3) THEN J(T,6)=J(T,6)-l 

Timing delay. 

555 FOR Z=Q TO 200:NEXT Z 


560 J(T,2)=JIT,2)-H!V,A(X,0)+6):J(T,4! 
=J(T,4)-H(V,A(X,01) 

Display the number of main armament 
hits. 

570 NEXT Y:IF H>0 THEN POSITION 2,18:6 
0SUB 7000:? H;" HAIN ARMAMENT HITS ON: 
“:? Jf(TI15+1,(T+l)tl5):FOR ZZ=1 TO 50 

0:NEXT ZZ:H=0 

Repeat the process for secondary 
armaments. 

580 M=M1:F0R Y=1 TO A(X,6)*2:Z=INT((RN 
D(0)*10)+1)+M:IF Z>4 THEN 610 
590 H=H+1 

600 V=INT!RND!0)J5):J(T,2)=J!T,2)-H(V, 

A (X,11+6):J!T,4)=J(T,4)-H(V,A(X,1)) 

610 NEXT YsNEXT X:M=M1:IF H>0 THEN P0S 
ITIDN 2,19:G0SUB 7000:? Hj" SECONDARY 
ARMAMENTS HITS ON:":? J$(T»15+i,(T+ll* 
15):H=0 

615 FOR ZZ=0 TO 500:NEXT ZZ:G0T0 880 
U.S. torpedo fire. 

620 C=C+1:M=M1-C:POSITION 2,16:G0SUB 7 
000 

630 IF A<7,3J<I AND NT<1 THEN ? "NO TO 
RPED0ES TO FIRE“:F0R ZZ=0 TO 500:NEXT 
ZZ;G0T0 880 
640 IF A!7,3)<1 AND NT>9 THEN A!7,3)=l 
0:NT=NT-10 

650 A(7,31=A!7,3)-5:? "TARGET ? (ENTER 
NUMBER PLEASE)”:H=M1 
670 GET #1,T1:T=VAL(CHR$(T1)):IF T<1 0 
R T>8 THEN ? "NO SUCH TARGET":GOTO 670 
680 T=T-1:IF J(T,5)<1 THEN POSITION 2, 
18:? JI!T*15+l,(T+im5):? "NAS SUNK”: 

? "SELECT ANOTHER TARGET":GOTO 670 
690 FOR Y=1 TO 5:Z=INT((RND(0!*101+11+ 

M:IF Z>5 THEN 720 

700 V=INT(RND10)*5):J(T,2)=J(T,2)-H(V, 
12):J(T,4)=J(T,4)-H(V,6):H=H+1 
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710 POSITION 2,18:? H;" HITS ON: ■;»( 
T*15+l,(T+l)*15):GOSUB 7000:F0R ZZ=0 T 
0 200:NEXT ZZ 
720 NEXT Y:GQTO 880 

U.S. course change routine. 

730 POSITION 2,16:G0SUB 7000:? " B 
1 2":? " !":? " 7--+--3 ENTE 

R NEN COURSE" 

740 ? " !":? " 654” 

760 GET #1,T1:G=VAL(CHR$(T1)) 

770 IF G<1 OR G>8 THEN 760 

780 SOTO 6*10+780 

790 A1=-40:GOTO 870 

800 Al=-39:GOTO 870 

810 Al=1:GOTO 870 

820 Al=41:GOTO 870 

830 Al=40:GOTO 870 

840 Al=39;GOTO 870 

850 Al=-1:GOTO 870 

860 Al=-41 

870 GOTO 190 

Check turn count. Japanese fire 
torpedoes on second half-turn If range Is 
close enough. 

880 IF CM AND HK3 THEN 1020 
885 M=M1:POSITION 2,16:S0SUB 7Q00:H=0 

Japanese gunfire routine. 

890 FOR Y=0 TO 7:IF J(Y,5)<1 THEN 1010 
895 POSITION 2,16:? "INCOMING JAPANESE 
FIRE FROM: ":GQSUB 7000:? J*( 

Y*15+l, (Y+DI15! 

900 FOR X=0 TO 7:IF A(X,5)<1 THEN NEXT 
X:GOTO 4070 

910 T=TT:FOR X=1 TO 1:NEXT X:TT=TT+1:I 
F TT>7 THEN TT=0 
915 IF A(T,5)<1 THEN 910 
920 FOR X=1 TO J(Y,6>:Z=INT((RND(0)*10 
!+l)+M:IF Z>5 THEN 960 
940 M=M+0.5:H=H+1:V=INT(RND(0)*5!: IF ( 
V=1 OR V=3) AND Y<4 THEN A(T,6)=A(T,6) 
-1 

950 A(T,2)=A(T,2)-H(V,J(Y,0)+6i:A!T,4) 
=A(T,4)-H(V,J(Y,0i) 

960 NEXT X:IF H>0 THEN POSITION 2,19:? 


H|" MAIN ARMAMENT HITS ON:”:G0SUB 700 
0:? A$(Tl15+1,(T+l)tl5):FQR ZZ=0 TO 50 
0:NEXT ZZ:H=0 
965 IF Y>5 THEN 1010 
970 FOR X=1 TO J(Y,7):Z=INT((RND(O)tlO 
)+1)+M:IF Z>5 THEN 1000 
980 H=H+1:V=INT(RND(0!*5):A(T,2)=A(T,2 
)-H(V, J(Y,11+6):A(T,4)=A(T,4)-H(V,J(Y, 
D) 

1000 NEXT X:IF H>0 THEN POSITION 2,19: 

SOSUB 7000:? H;" SECONDARY ARMAMENT HI 

TS ON:":? A$(T*15+1,(T+1!*15):H=0:F0R 

ZZ=Q TO 500:NEXT ZZ 

1010 NEXT Y:FOR X=0 TO 100:NEXT X 

1015 IF CM THEN 3020 

1017 GOTO 160 

Japanese torpedo fire routine. 

1020 N=H1:POSITION 2,16:G0SUB 7000:? “ 
INCOMING JAPANESE TORPEDO FIRE":IF Ml= 

3 THEN M=M+1 

1025 FOR 11=0 TO 300:NEXT ZZ 

1030 FOR X=4 TO 6:IF J(X,3)>0 AND J(X, 

5)>0 THEN 2040 
1035 NEXT X 

1040 IF !J(7,3X1 AND JT<1) OR J(7,5X 
1 THEN 3020 

1050 IF J(7,3X1 AND JT>9 THEN J!7,3) = 

10:JT=JT-10 

1060 J(7,3)=J(7,3)-5 

1070 FOR X=0 TO 7:IF A!X,5X1 THEN NEX 

T X:GOTO 4070 

1080 T=TT:FOR X=1 TO 1:NEXT X:TT=TT+1: 

IF TT>7 THEN TT=0 

1085 IF A(T,5)<1 THEN 1080 

1090 FOR X=1 TO 5:Z=INT((RND(0)*10)+1) 

+M:IF Z>4 THEN 2030 

1100 V=INT(RND(0)*5):A(T,2)=A!T,2)-H(V 
,12):A(T,4!=A(T,4)-H(V,6):POSITION 2,1 
8 

1105 ? "TORPEDO HIT ON ";A$(T*15+1,(T+ 
1X15):FOR 11=0 TO 500:NEXT ZZ:IF T<7 
THEN T=T+1 

1110 FOR 11=0 TO 500: NEXT ZZ 
2030 NEXT X:GOTO 3020 
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2040 F=X:FOR X=1 TO IsNEXT X:J(F,3)=J( 
F, 3)-8 

2050 FOR X=0 TO 7:IF A(X,5Ki THEN NEX 
T X:GOTO 4070 

2060 T=X:FOR X=1 TO IsNEXT XsIF T=8 TH 
EN 4070 

2070 FOR X=i TO 8:Z=INTC(RMD(0)* 10)+1) 
+M;IF Z>4 THEN 3010 

2080 V=INT(RND(0)i5):A(T,2)=A(T,2)-H(V 
,12!:A(T,4!=A(T,4)-H!V,6)sPOBITION 2,1 
8 

2090 80SUB 7000s? "TORPEDO HIT ON ";A$ 
(TJ15+1,(T+l)115)sFOR ZZ=0 TO 500:NEXT 
ZZsIF T<7 THEN T=T+1 
3010 NEXT X 

Status update. 

3020 POSITION 2,16:GOSUB 7000s? "CHECK 
ING FOR SUNKEN SHIPS":FOR ZZ=0 TO 400: 
NEXT ZZ 

3030 FOR X=0 TO 6:J(X,7)=0:IF J(X,2)<1 
OR J(X,4)<1 THEN J!X,5!=0:? J$(Xtl5+l 
,(X+1)I15);" :FOR Z=1 TO SOOsNEXT 
Z 

3050 IF A(X,2)<1 OR A(X,4)<1 THEN A(X, 
5)=0 

3060 NEXT X:J(7,7)=0;IF A!7,2)>0 OR A( 
7,4)>0 THEN 3090 

3070 A(7,5) =A(7,5)-isIF A17,5X1 THEN 
4020 

3080 A(7,2)=5:A(7,4)=20:A(7,3)=10:NT=N 
T-10 

3090 IF J(7,2)>0 OR J(7,4)>0 THEN 4020 
4010 J(7,2)=5:J!7,4)=25:J(7,3)=10:JT=J 
T-10 

4020 FOR X=0 TO 6:IF J(X,5X1 THEN NEX 
T X:GOTO 4030 
4025 GOTO 4060 

End-of-game messages. 

4030 GRAPHICS 0:? "ALL JAPANESE CAPITO 
L SHIPS SUNK":? 

4040 ? "YOU HAVE SAVED THE LEYTE LAND I 
NGS":? :? 

4050 ? "TO PLAY AGAIN TYPE RUN":END 
4060 FOR X=0 TO 7:IF A!X,5)>0 THEN 150 


4070 NEXT X:GRAPHICS 0:? "YOU LOST ALL 
YOUR SHIPS":? 

4080 ? "MAYBE KINKAID’S SEVENTH FLEET" 
:? 

4090 ? "WILL SAVE THE LEYTE LANDINGS": 
? :? :GOTO 4050 

5010 GRAPHICS 0:? "THE JAPANESE HAVE R 
EACHED LEYTE":? :GOTO 4080 

Data for all A and J arrays. 

6000 DATA YAMATO,NEW JERSEY,1,2,4,4,35 
,33,0,0,300,275,1,1,9,9,0,0 
6010 DATA NAGATO,IOWA,2,2,4,4,30,33,0, 
0,250,275,1,1,8,9,0,0 
6020 DATA KONGO,WASHINGTON,3,2,4,5,29, 
31,0,0,250,250,1,1,8,9,0,0 
6030 DATA HAGURO,MASSACHUSETTS,3,2,4,5 
,28,31,0,0,250,250,1,1,8,9,0,0 
6040 DATA CH0KAI,ALABAHA,4,2,5,5,25,31 
,16,0,220,250,1, 1,8,9,0,0 
6050 DATA SUZUYA,BALTIMORE,4,4,5,5,25, 
25,16,0,220,200,1,1,15,9,0,0 
6060 DATA NAGARA,PITTSBURGH,5,4,0,5,20 
,25,8,0,100,150,1,1,7,9,0,0 
6070 DATA JAP. DESTROYERS,U.S. DESTROY 
ERS, 5,5,0,5,10,15,10,10,50,55,8,6,6,5, 
0,0 

Data for hits table. 

6080 DATA 20,2,15,1,12,1,8,0,2,0,20,1, 

25,2,20,1,15,1,10,0,3,0,15,1 

6090 DATA 18,1,15,1,12,0,7,0,2,0,17,3, 

15,1,15,1,11,0,7,0,2,0,17,3 

6100 DATA 17,2,15,2,12,2,10,1,3,1,20,5 

Japanese movement data. 


6110 DATA 361,362,323,284,285,247,208, 
209,210,211,212,173,174,215,216,177,17 
8,179,180,181,222 

6120 DATA 183,224,185,226,227,188,229, 
270,271,312,313,354,355,396,397,438,47 


9,999,999 


Erase to bottom of screen. 


7000 ? RETURN 
7010 REM Line 7000: 

7 <ESCXSHIFTXDELETE>’S 
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TITAN 

u. r ii/iiii_w_•_a t _ 1_n_ 
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Titan is an outer space mining 
simulation for a 24K Atari with one 
joystick. 

Editor’s Note: This program is 
divided into two parts, enabling it to 
run in 24K RAM. Type in Part I, and 
SAVE it. Then type in Part II separate¬ 
ly, and LIST it to disk or cassette with 
the LIST “D:filename” or LIST "C:” 
command. 

The year is 2050. The Solar Mining 
Authority, in its ever-expanding quest 
for raw material, has finally decided to 
entertain bids from different corpora¬ 
tions for the exclusive mining rights to 
Titan, one of the moons of Saturn. 

In an attempt to ensure maximum 
efficiency from the operators of the 
Titan concession, the Solar Mining 
Authority has decided to permit up to 
four companies to operate on Titan us¬ 
ing Probationary License Permits, for 
a period of one Earth year. 

Sometime during the first quarter of 
the second year, an on-site inspection 
of the competing companies will result 
in one of them being awarded exclusive 
authority to mine the valuable 
Dilithium 3 crystals peculiar to Titan. 
The stakes are high; the risk and ex¬ 
pense factors, even by 21st century 
standards, are enormous. The reward, 
however, makes the gamble more than 
worthwhile: for your company, fan¬ 
tastic profits; for you, possible promo¬ 
tion to the parent corporation’s Board 
of Directors, as well as immense finan¬ 
cial gain! Failure, of course, carries its 
own reward. 

Having decided to accept the post of 
Superintendent of your corporation’s 


Titan operation, you will be assigned 
one of four possible base sites: 
Actaeon, Bellona, Chimera, or 
Daedalus. As the highest ranking on¬ 
site representative of management, you 
must make the initial decisions concer¬ 
ning budgetary allotment. The only 
mandatory purchase is one power 
plant; all of the remaining choices are 
subject to your final authority. What 
about drilling rigs and robot miners? 
Drill rigs are required for vertical min¬ 
ing, while robominers carry out 
horizontal digging. Will you invest in 
an on-site Research and Development 
Station? Investing in this category of 
equipment can increase the likelihood 
of finding the Dilithium 3 crystals. 
How many Meteor Deflection Shields 
will be installed to protect your com¬ 
pany’s investment from the ever¬ 
present danger of stray asteroids from 
the rings? Refineries are needed, of 
course, to process the Dilithium 3 once 
you have discovered a vein of this 
elusive mineral. Without refineries, 
your profits will suffer greatly. Finally, 
energy consumption is a key factor on 
your Titan operation. Having an extra 
energizer unit or two could be very 
helpful! Remember: All of these fac¬ 
tors are interrelated, with careful tim¬ 
ing and meticulous attention to detail 
being necessary if the subsequent 
stages of your operation are to 
prosper. Costs fluctuate with increases 
or decreases of the availability of 
equipment. 

Once you have made your initial 
budgetary decisions, you enter the 
management phase of your undertak¬ 
ing. Your decision concerning the 
number of surplus laborers (Labor 
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Pool), the length of their work shifts, 
the nature of the Recreational 
Facilities, as well as the nature of the 
Bonus Schedule and Safety Program, 
must tread the path best suited to 
achieve your goals. For example, cave- 
ins are a frequent problem on Titan 
because of gravity fluctutations caused 
by Saturn. Investing in safety measures 
could pay dividends. Your decision to 
pay your workers well will have 
positive results that are quickly evi¬ 
dent. On the other hand, too much 
generosity in the area of labor relations 
could hamper the profit picture. The 
ultimate goal is to increase your effi¬ 
ciency; however, be advised that there 
are occasions when you will have to 
sacrifice efficiency for greater output. 
This knowledge can only be gained 
from “hands-on’’ experience. No one 
said the job was going to be easy! 

Having set your policy for the cur¬ 
rent work cycle, your attention must 
now shift to the actual task of locating 
and mining the precious Dilithim 3 
crystals. Once located at their 
designated mining strikes, your 
workers will await your decisions as to 
drilling locations. A unique screen con¬ 
troller will allow you to carefully 
monitor and direct the drilling phase 
and subsequent use of the robot 
miners. Through the careful interpre¬ 
tation of the Assay data beamed back 
to you, the number of drilling sites can 
be kept to a minimum. Again, the 
deployment of the robot miners will 
reflect your ability to carefully monitor 
on-site reports. Both of these latter 
utilities are prodigious users of power; 
but then, you will have thought of that 
when you made your initial decisions 
regarding power plant purchases or in¬ 
vestment in Research and Development 
units. Right? 

At the end of each work-cycle period 
you must decide, once again, on the 
budgetary decisions for the following 
month. Your experience during the 
previous cycle(s) should enable more 
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efficient judgments as you progress. It 
is for this reason that you may view a 
summary of your decisions and ac¬ 
complishments in the Monthly Report. 
Your statement will also reflect your 
financial capabilities for the next turn. 

One minor last detail: As you will 
remember from an earlier part of this 
briefing, there is a periodic danger of 
damage to your operation from 
meteoroids. It will be your task to use 
the Meteor Deflection Shields to pre¬ 
vent any on-site damage to your cor¬ 
poration’s property. Of course, these 
units require substantial amounts of 
power; but then, you have carefully 
planned for this contingency, haven’t 
you? 

Good luck and good mining! 

I 

On Playing Titan 

One of the primary goals in design¬ 
ing Titan was to make it as indepen¬ 
dent of the keyboard as possible. For 
the Atari, this meant the use of the 
joystick. 

Joystick Use 

The joystick routine utilizes the up- 
down, left-right registers to permit 
viewing of possible choices and the 
button to register a final input. It is us¬ 
ed in all of the key sections of the pro¬ 
gram. 

Game Initialization 

When indicating the number of 
players and the level of difficulty, 
simply use the left-right joystick 
capability to move the appropriate 
number and press the button to finalize 
your input. 

Equipment Management and Labor 
Relations Phases 

Toggling the joystick to the left or 
right indicates your decision to increase 
or decrease within a category, with the 
button registering this decision. Up¬ 
ward or downward action on the 
joystick moves you through the dif¬ 
ferent categories. 
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Mining Phase 

Left or right action on the joystick 
will allow you to move between the 
drill rig or robominer options, while 
upward toggling will permit you to 
consider ending this phase of the 
simulation. In each case pressing the 
joystick button registers your decision. 
Be aware, however, that the 
robominers cannot be activated unless 
you have at least one drill rig on site. 

Once you have decided upon a drill 
rig or a robominer, you may move it to 
the drill site by using the joystick. Press 
the button when you have decided that 
you have the equipment on site. 
Downward toggling of the joystick per¬ 
mits drilling or the movement of the 
robominer down the shaft to occur. In 
the latter case you also have an upward 
movement capability within the drill 
shaft and lateral mining ability once 
the button has been pressed. Be aware 
that pressing the button during lateral 
mining terminates the robominer cur¬ 
rently in use. 


Monthly Report 

Pressing the joystick button will ter¬ 
minate this section as you move on to 
decisions for the next month’s mining 
operations. 

Variables 

A$: Name of player’s base on Titan. 


A: Drill Rig array. 

AC: Action flag indicating decision to 
buy or sell. 

C: Cost of items purchased during 
Equipment phase, or the price of 
worker-related decisions. 

C2: Choice flag which is set during 
the Labor Management phase. 

CH: Choice variable. 

DA: Month of the year. 

EF: Efficiency rating. 

EN: Energy consumption. 

EQ$: Equipment. 

EX$: Extras. 

FF: Efficiency counter. 

HO: Drill hole(s). 

J0-J7: Line numbers. 

K: Player’s variable table. 

LV: Level of play. 

P: Current player. 

PL: Total number of players in 
simulation. 

R, RA, RB: Random numbers. 

UL, UN, UY, UZ: Sound variables 
for pitch, duration, etc. 

VI: Horizontal location of dilithium. 
V2: Vertical location of dilithium. 

VE: Number of veins located. 

WC$: Worker related items. 

YE: Current year. 

All other variables not specifically 
identified in the range of X-Z are 
counters or conditional flags. 


SS SS SS SS SS SS SS SS SS SB SB 
SB SS 
SS Atari BASIC SS 
SS Titan’ SS 
SS Authors: SS 
SS ililliaiB Horns & John Cope SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 
SS SS SS SS SS S3 SS SS SS SS SS 


Initialization. 

1100 DIH C(12),K(4,16I,Z$(1),fi$(40},E9 
$(70), m (70),EX$(40),DB$(72):J0=20000 


:J1=20010:J2=20020:J3=20030:J4=20040 
1110 J5=20050:J6=20060;J7=20G70 
1120 GRAPHICS 2:SETC0L0R 0,0,8:SETC0L0 
R i,0,8;SETC0L0R 2,8,0sSETC0L0R 4,8,0 
1130 POSITION 7,4:FOR Z=0 TO 3;READ Z* 

,Y,X:? SOUND Z,Y,10,4:F0R Y=1 T 

0 X:NEXT Y;NEXT Z:? t6; M N” 

1140 SOUND 3,68,10,4;SOUND 0,136,10,4: 
POKE 752,1:7 11 (c) Ns. Morris & J. C 

ope 19S1 U :FGR Z=1 TO 999:NE)(T Z 

PLaying parameters. 

1150 SOUND 3,0,0,0:FOR Z=0 TO 3:S0UND 
0,162,10,8:SETC0LGR 2,3,15sSETCOLOR 4, 

3,15:F0R Y=0 TO 200:NEXT Y 
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1160 SOUND 0,217,10,B:SETCOLOR 2,3,0;S 
ETCOLOR 4,3,0:FOR V=0 TO 200:NEXT VsNE 
XT Z 

1170 FOR Z=0 TO 999:NEXT Z:FOR Z=0 TO 
3:SOUND Z,0,0,0:NEXT Z:GOSUB 3000 
1200 GRAPHICS 17:SETCDL0R 2,4,15:SETCQ 
LOR 4,12,0;POSITION 2,1:? #6;"HELCQME 
TO TITAN!"-.POSITION 1,7:GQSUB 00 
1210 ? #6?"USE THE JOYSTICK TO’:? #6;" 
SELECT THE NUNBER OF":POSITION 6,11:? 
#6;"PLAYERS.";GQSUB 2100 
1220 PL=X:GRAPHICS 17.-SETC0L0R 2,4,15: 
SETCOLOR 4,2,0:P0SITI0N 0,7:? i6;”LEVE 
L OF DIFFICULTY?":GOSUB 2100 
*230 LV=X+4:GRAPHICS 17:SETC0LQR 4,15, 
0 

1240 FOR Z=1 TO PL:POSITION l,4IZ-3:? 
#6;"PLAYER # H ;Z; a COWHANDS BASE";A 
$!Zl10-9,Z>10):SOSUB J1:NEXT Z 
1250 POSITION 2,19:? #6;“PRESS TRIGGER 
IMPOSITION 8,21:? #6:" BEGIN" :GOSUB 
JO 

1260 IF STRIG(O) THEN 1260 
1270 FOR Z=1 TO PL:KiZ,6)=l:K(Z,131=50 
0:K(Z,14)=100:K(Z,15)=5:NEXT 1:7 "JI’H 
NON LOADING PART2." 

1280 ? :? :? "GQT0300":POSITION 2,IsPO 
KE 764,12:ENTER "D:TITAN32K.PT2" 

Joystick selection routine. 

2100 POSITION 6,17:Y=2110 
2110 ? #6;"1, 2 3 4":G0T0 2150 
2120 ? 16;"T2 3 4";GOTO 2150 
2130 ? #6;"1 2 3 4“:G0T0 2150 
2140 ? #6;" 1 2 3 4" 

2150 GOSUB J1 

2160 POSITION 6,17:FOR Z=0 TO 14 STEP 
2:SETCOLOR 2,4,Z:NEXT Z;IF STRIG!0)=0 
THEN X=fY-2100)710:GOSUB JO:RETURN 
2170 IF STICK(0)=15 THEN 2160 
2175 IF STICKX0)=11 THEN Y=Y-20:IF Y<2 
100 THEN Y=2100 

2180 Y=Y+10:IF Y>2140 THEN Y=2110 
2190 GOTO Y 
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Set initial numeric variables and string 
arrays. 

3000 DA=O:YE=2O50:FQR Z=1 TO 4:FOR Y=0 
TO 16:K(Z,Yi=0:NEXT Y:NEXT Z 
3010 C(1)=100:C(2)=200:C<3)=300:C(4!=4 
00:C(5)=500:C(6)=2000:C(7)=5:C(8)=10:C 
(9>=100:C(10)=200:C(11)=300:C(12)=400 
3020 EQ4="DRILL RIG ROBOHINER DEFLECTO 
R R6D UNIT REFINERY ENERGIZER CONTIN 
UE " 

3030 Ai=" ACTAEON BELLONA CHIMERA 

DAEDALUS » 

3040 HC$="LABOR POQLSHIFT TIHEHAGE SCA 
LERECREATIONSAFETY BONUSES CONTIN 
UE " 

3050 EXI="CREDIT HANPOWER EFFICIEN 

CY* VEINS t “ 

3060 RETURN 

Sound routines. Common to parts one 
and two. 

10000 DATA T,162,400,I,108,400,T,81,60 
0,A,64,100 

10010 DATA 8,8,8,8,8,20,28,20,2B,20,62 
,54,99 

i0020 DATA 240,208,240,97,255,241,144, 
216 

20000 FOR UZ=15 TO 0 STEP -0.5:FQR UY= 

3 TO O STEP -1:SOUND 0,15-UY,10,UZ:NEX 
T UY:NEXT UZ:RETURN 
20010 FOR UZ=16 TO 0 STEP -2:F0R UY=G 
TO 5:SOUND 0,15-UY,10,UZ:NEXT UY:NEXT 
UZ:RETURN 

20020 FOR UZ=10 TO 0 STEP -2:F0R UY=5 
TO 10:SOUND 0,15-UY,10,UZ:NEXT UY:NEXT 
UZ:RETURN 

20030 FOR UZ=2 TO 0 STEP -2:FOR UY=5Q 
TO 100 STEP 10:SOUND 0,150-UY,10,UZ:NE 
XT UY:NEXT UZ-.RETURN 
20040 SOUND 0,UN,10,2:F0R UZ=1 TO 2:NE 
XT UZ:SOUND 0,0,0,0:RETURN 
20050 SOUND 0,255,10,4:FOR UZ=1 TO 9;N 
EXT UZ:SOUND 0,0,0,0:RETURN 
20060 FOR UZ=16 TO 0 STEP -1:F0R UY=15 
0 TO 200 STEP IQ:SOUND 0,UY,10,UZ:NEXT 
UY;NEXT UZ:RETURN 
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20070 FOR UZ =8 TO 0 STEP -IsFOR UY=55 
TO 105 STEP 10:SOUND 0,UY,10,UZ:S0UND 
1,UY-50 f 90,UZ:NEXT UYsNEXT UZsRETURN 

PART II 

300 GOSUB 7000:eOSUB 9000:FOR P=i TO P 
L:POKE 77,0:GOSUB 1000:NEXT P:GOSUB 60 
00:GOTO 300 

Equipment Management. 

1000 GRAPHICS 1:SETC0L0R 2 5 8,4:SETCOLQ 

R 4,P+4,2:CH=1:AC=0:C2=0 

1010 POSITION 3,0:? t6;*BASE:';M(P*10 

-9,PS 10):POSITION 1,2:? # 6 ;DA; Vl/ n ;VE 

;" STATUS ";KIP,0)-.GOSUB J2 

1020 POSITION 0,4:? I 6 ;" EQUIPHENT ONNE 

D^COST":POSITION 0.6.-F0R Z=1 TO 6 :? #6 

j E 8 $ (ZtlO-9, Zi 10): NEXT Z 

1030 FOR Z=1 TO 6:P0SITI0N 12,5+Z:? 16 

;K(P,Z)j“ “jPOSITION 16,5+Z:? # 6 ;C(Z): 

NEXT Z 

1040 POSITION 7,15:? # 6 ;“credit":POSIT 
ION 8,17:? #6;K(P,13); 0 H :BOSUB 1100: 
IF CH=7 THEN CH=1:ftC=0:GOTO 1300 
1050 GOTO 1020 

Buy and sell routine. Accessed by 
Equipment Management and Labor 
Relations phases. 

1100 POKE 752,1:POKE 77,0:? ”}";:IF CH 
>7 THEN CH=CH-7 

1110 IF AC=0 THEN ? ,* INCREASE" :UN= 

60:GOSUB J4 

1120 IF AC THEN ? ," DECREASE ":UN=24 
3:GOSUB J4 

1125 IF C2=0 THEN ?:? ," ";EG$!CHtl 
0-9,CH?10):GOTO 1135 
1130?:?,“ "; WC$ (CH410-9, CH410) 

1135 IF CH=7 THEN ? :UN=121:GOSUB J4 
1140 IF STICK(0)=15 AND STRIGIOJOO TH 
EN 1140 

1150 IF STRI 6 (0!=0 THEN 1200 
1160 IF STICK(0)=11 THEN AC=0 
1170 IF STICK(0)=7 THEN AC=1 
1180 IF STICK(0)=13 THEN CH=CH+1 
1190 IF STICK(0)=14 THEN CH=CH-1:IF CH 
<1 THEN CH=7 


1195 GOTO 1100 

1200 IF CH=7 THEN RETURN 

1205 IF C2 THEN CH=CH+6 

1210 IF (AC=1 AND CH=6 AND KIP,61=1) 0 

R !AC=0 AND CH=S AND KIP,B)>17i OR (AC 

=1 AND KIPjCHXl) THEN 1280 

1220 IF AC=0 AND CH=9 AND K(P,9)=0 THE 

N 1250 

1230 IF AC=0 AND K(P,13KC(CH! THEN 12 
80 

1240 IF AC THEN K(P,CHJ=K(P,CH)-1:K(P, 
13>=K(P,13)+C(CH):IF CH=7 THEN KIP,14! 
=K IP, 14.1-1 

1250 IF AC=0 THEN KIP,CH!=K(P,CH)+1:KI 
P, 13)=K(P,13)-C(CH):IF CH=7 THEN KIP, 1 
4)=K(P,14)+1 

1260 SETCOLOR 2,11,0:IF C2 THEN CH=CH+ 

1 :IF CH=8 THEN SETCOLOR 2,8,4:RETURN 
1270 GOSUB 33:SETCOLOR 2,8,4:RETURN 
1280 SETCOLOR 2,3,0:G0SUB J5:SETCOLOR 
2,8,4:IF C2 THEN CH=CH+1 
1290 RETURN 
Labor Relations phase. 

1300 GRAPHICS 1:5ETC0LQR 2,8,4:SETC0L0 
R 4,P+3,2:C2=l 

1310 POSITION 3,0:? #6;"BASE: 0 jA$IP*10 
-9,PtlO):POSITION 4,2:? #6: "MANPOWER " 
;K(P,14):P0SITIQN 0,4:G0SUB J2 
1320 K«P,7)=K(P,14!-(K!P,l)tLV!-(K(P,2 
)ILV*2)-(K(P,3!ILVi3!-IK(P,4!ILVt4)-IK 
IP,5!tLVI5)-IK(P,6)tLV)10! 

1330 C(9!=KIP,14!:C(10)=K(P,14!*2:C(11 
i=K(P,14)*3:C(12)=K(P,14)*4:EN=K(P,6)* 
500i(ll-LV) 

1340 GOSUB 5000:? #6;" EFFICIENCY RATE 
“;KIP,15); 

1350 POSITION 0,6:? 16;"conditions se 
t cost".-POSITION, 0,8:FOR Z=i TO 6:? 46 
;WC$IZ110-9,Zil0!;NEXT Z 
1360 FOR Z=1 TO 6:P0SITI0N 12,7+Z:? 46 
;K(P,Z+6!|" ":PDSITI0N 16,7+Z:? 46,-CIZ 
+6):NEXT Z 

1370 POSITION 7,15:? 46:" credit ":PQSIT 
ION 8,17:? #6;KIP,13);“ “:GOSUB 1100 

:IF CH=7 THEN 2000 

The Best of SoftSide 83 


1380 SOSUB 5000:POSITION 16,4:? 16;EF; 
7. B j: GOTO 1360 

Mining phase and graphics display. 

2000 IF K(P, 1K1 THEN 3000 
2010 GRAPHICS 7:SETC0L0R 0,1,6 :SETCOLO 
R 2,0,Oj-SETCOLOR 4,0,0:C0LQR 3:PLOT 0, 
19:DRAHT0 159,19 

2020 COLOR 1:F0R Z=20 TO 79:SOUND 0,20 
0-ZI2,10,2:PLOT 0,Z:DRAHTO 159,Z:NEXT 
Z:SETCOLOR 2,!1,2:GQSUB JO 
2030 COLOR 1:FOR Z=1 TO 10:FOR Y=1 TO 
2:R=INT(RND(0)1159):PLOT R,Z:NEXT Y:NE 
XT Z 

Set the location of the Dilithium 3 
crystals. 

2040 V1=INT(RND(0)t129+15):V2=INT(RND! 
0)159+20):RA=10-LV:RB=INT(RND(0)13) 

Set up the missile graphics. 

2100 POKE 559,62:Z=PEEK(106!-B:POKE 54 
279,Z:POKE 53277,3:X=Z1256+1280:RESTOR 
E :FOR Z=1 TO 12:READ Z$:NEXT Z:H0=0 

Read the data for the robominer and drill 
rig into the missile .graphics screen 
display locations. 

2110 FOR Z=57 TO 69:READ Y:PDKE X+Z,Y: 
NEXT Z:X=X+256:FGR Z=62 TO 69:READ Y:P 
0KE X+Z,Y:NEXT Z 

Set the playfield so that players have 
priority. 

2120 SETCOLOR 2,U,2:P0KE 623,1:P0KE 7 
52,1:IF K(P,1)=0 AND (H0=0 OR K(P,2)=0 
! THEN 3000 

2130 ? ,,"DRILL RIG(S) ";:X=1:W= 

200:GOTO 2150 

2140 ? "ROBOMINER(S) :X=2:N=50 

2150 ? K(P,X):POKE 53248+X,W:Z=704+X?P 
QKE Z,78:G0SUB J0+X110 
2160 FOR Y=78 TO 64 STEP -ItPOKE Z,Y:I 
F STRIG(0)=0 THEN Y=64:NEXT Y:P0KE Z,7 
8 :GOTO 2200 

2165 IF STICK(0)=7 THEN Y=0:NEXT Y:P0K 
E 53250,0:GOTO 2130 

2170 IF STICK(0)=11 THEN Y=0:NEXT Y:P0 
KE 53249,0:GOTO 2140 
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2175 IF STICK(0)=14 THEN 2185 

2180 NEXT Y:G0T0 2160 

2185 ? ,' CONTINUE";:P0KE 5324 

9,0:POKE 53250,0.-GOSUB J3.-IF STRIG(0!= 

0 THEN 3000 

2190 FOR Y=78 TO 64 STEP -1:IF STICK(0 
)=15 THEN 2185 
2195 GOTO 2165 

2200 IF Kff.XXl OR <X=2 AND H0=0) THE 
N SETCOLOR 2,3,2:60SUB J5:SETC0L0R 2,1 
' 1,2:G0T0 2160 

2210 K(P,X)=K(P,X)-1:FOR Z=20 TO 0 STE 
P -1:SOUND 0,Z,10,2:NEXT Z 
Horizontal movement phase. 

2220 SOUND 0,W,10,2:IF STRIG(0)=0 THEN 
2300 

2230 IF STICK(0)=11 THEN W=W-1:IF H<50 
AND X=1 THEN W=50 
2235 IF NX40 THEN W=40 
2240 IF STICK(O)=7 THEN W=«+l:IF H>200 
THEN W=200 

2250 POKE 53248+X,N:GOTO 2220 
2300 IF X=1 AND («=50 OR H=200) THEN 2 
220 

2310 IF X=2 THEN 2400 
2320 N=N-44:Y=19 

Vertical drilling sequence. 

2330 COLOR 2:F0R Z=10 TO 14:SETC0L0R 1 
,0,Z:PLOT H,19:VE=1 

2333 IF STICK(0)=13 THEN Y=Y+1:S0UND 0 
,200,2,8:VE=2:IF Y>78 THEN Y=78 
2335 GOSUB 2500:? ,"ENERGY ";EN:IF EN< 

1 OR VE=1 THEN Z=14:NEXT Z:G0T0 2600 
2340 SOUND 0,150,12,2:DRANT0 H,Y:NEXT 
Z:IF STRIG(0)00 THEN 2330 
2350 COLOR 1:F0R Z=16 TO 18:FL0T W-4,Z 
:DRANTO N+4,Z:NEXT Z:C0L0R 0:PL0T W,Y: 
DRAWTO W,17:POKE 53249,0:G0SUB J1 
2360 H0=HG+1: GOTO 2120 

Robominer vertical drilling sequence. 

2400 LOCATE W-41,19,Z:IF ZOO THEN 222 
0 

2410 H=W-41:Y=17 
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2420 COLOR 2:F0R Z=iO TO 14:SETCQLQR 1 

j0,Z:PLOT N,17:IF STICK(0>=13 THEN Y=Y 

+1:LOCATE H,Y f X:IF ZOO THEN Y=Y-1 

2430 IF STICK(0)=14 THEN COLOR 0:PL0T 

«,Y:Y=Y-1:IF Y<20 THEN Y=20 

2435 VE=1:GOSUB 2500:SOUND 0,150,12,2: 

DRAWTO H,Y:? ."ENERGY ";EN:IF EN<1 THE 

N Z=!4:NEXT Z:GOTO 2600 

2440 NEXT Z:IF (STICK!0)<>7 AND STICK! 

0)011) OR Y<20 THEN 2420 

2445 COLOR 0:PL0T W,17:DRAHT0 H,Y 

Robominer horizontal drilling sequence. 

2450 VE=1:COLOR 0:SETC0L0R 1,0,15:PLOT 
H,Y:IF STICK(O)=7 THEN W=N+1:SQUND 0, 
200,2,8:VE=2:IF W>150 THEN N=8-l 
2460 IF STICK!0)=11 THEN H=«-1:S0UND 0 
,200,2,8:VE=2:IF N<10 THEN N=N+1 
2465 GOSUB 2500:? ,“ENERGY ";EN: IF EN.< 

1 OR VE=1 THEN 2600 

2470 SOUND 0,150,12,2:COLOR 2:PLOT N,Y 

:IF STRIG(0!<>0 THEN 2450 

2480 POKE 53250,0:GOSUB JhGOTO 2120 

Compare distance of drill rig or 
robominer to Dllithlum. 

2500 POKE 77,0;EN=INT(EN-(100/K(P,15)) 
tVE) 

2510 VE=0:? IF Y<20 THEN SETCOLOR 
2,11,2:? “SURFACE n ;:RETURN 
2520 IF !H<Vl-RAi3 OR W>Vi+RA*4i OR (Y 
<V2-RBI3 OR Y>V2+K(P,4)+RBt4) THEN SET 
COLOR 2,1,2:? "ICE AND RDCK“;:RETURN 
2530 IF (W<Vl-RAt2 OR W>V1+RA*3) OR !Y 
<V2-RB*2 OR Y)V2+K!P,4)+RBJ3) THEN SET 
COLOR 2,7,2:? "THIRIDIUM "j:RETURN 
2540 IF (H<V1-RA OR 10V1+RAI2) OR (Y<V 
2-RB OR Y)V2+K(P,4)+RBJ2) THEN SETCOLO 
R 2,5,2:? “SECQNIUH "j:RETURN 
2550 IF (H<V1 OR. W)V1+RA) OR (Y<V2 OR 
Y>V2+K(P,4)+RB) THEN SETCOLOR 2,3,2:? 
"FIRIBIUH RETURN 

2560 VE=1:RETURN 

Discovery of Dllithlum. 

2600 IF EN<1 THEN 2800 


2605 COLOR 3:PL0T N,Y:? "}":? "EUREKA! 
You have Found DILITHIUM!!!":FQR Y=1 
TO 10:FOR Z=15 TO 0 STEP -1 
2610 SETCOLOR 2,3,Z;S0UND 0,160-(Z*10) 
, 10, Y:NEXT Z:NEXT Y:SOUND 0,0,0,0:60801 
B JO:SETCOLOR 2,11,2 
2620 ? “)":? ,,,"STATUS":GOSUB J1:X=0: 
Y=1:GOTO 2640 

2630 ? ">";? “500 CREDITS":GOSUB J2:X= 
13:Y=500 

2640 IF STRIG(0)=0 THEN K(P,X)=K(P,X)+ 
Y:K!P,16)=K(P,16)+1:GOTO 2700 
2650 IF STICK!0)=7 THEN 2620 
2660 IF STICK(0)=11 THEN 2630 
2670 GOTO 2640 

Test for lack of energy or equipment for 
drilling. 


2700 IF EN<1 THEN 2800 

2710 POKE 53250,OsPOKE 53249,0:IF K(P, 

1i>0 THEN 2000 

2720 ? ")-":? “YOU DO NOT HAVE ENOUGH E 
QUIPMENT LEFT":? "TO CONTINUE DRILLING 
,“:GOSUB J6:GOTO 3000 


2800 POKE 53250,0:POKE 53249,0 
2810 ? “}“:? "YOU DO NOT HAVE ENOUGH E 
NERGY LEFT TO":? “ CONTINUE DRILLING 
GOSUB J6:GOTO 3000 


Cave-in sequence. 


3000 R=RND(0)ilO-K!P,ll):IF R<7 OR K(P 
,16X1 THEN 3500 

3010 GRAPHICS 18:SETCOLOR 4,3,0:PQSITI 
ON 5,0:? 16j"RED ALERT!":Z=0 
3020 FOR Y=30 TO 0 STEP -1:SOUND 0,150 
-Y,10,6:SETCOLOR 0,14,Y:NEXT Y 
3025 Z=Z+1:IF Z<5 THEN 3020 
3030 SETCOLOR 0,14,10:SOUND 0,0,0,0:P0 
SITION 1,3:? #6;“CAVE IN:":R=INT(RND(0 
! * 11! 

3040 POSITION 3,5:? #6;R;“ WORKERS LOS 
T!“:K(P,14)=K(P,14)-R 
3050 IF R>6 THEN POSITION 3,6:? #6;"SH 
AFT NON CLOSED!":K(P,16)=K!P,16!-I 
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3060 IF STRIG(O) THEN 3060 
3070 GOTO 4000 

Meteor-storm sequence. 

3500 R=RNB(0m0-K(P,3);IF R <8 THEN 40 
00 

3510 GRAPHICS 18:SETCQL0R 4,3,0:P0SITI 
ON 5,0:7 16j“RED ALERT!“:Z=0 
3520 FOR Y=30 TO 0 STEP -1:SOUND 0,150 
-Y, 10 j 6 sSETCOLOR 0,14,Y:NEXT Y:Z=Z+1:I 
F Z<5 THEN 3520 

3530 SETCOLOR 0,14,10:S0UND 0,0,0,0:P0 
SITION 1,3:7 # 65 "HETEOR STORM!:":R=INT 
(RNDI0H10+1) 

3540 POSITION 3,5:7 I 6 ;R;“ NORKERS LOS 
T!":K(P,145=K!P,14!-R:IF R<7 THEN 3590 
3550 POSITION 0,6:R=INT(RND(0)*5+1>:IF 
K(P,R)<1 THEN 3590 

3560 K!P,R)=K(P,R!“1:7 #6;EQI!10?R-9,1 
OJRlj“DESTROYED!" 

3590 IF STRISiO) THEN 3590 

Monthly report. 

4000 Z=K(P,5!:IF KIP, 16XZ THEN MAP, 
16) 

4010 K(P,13)=INTIK(P,13!+K(P, 13)10.1+5 
00+(50*K(P,0)!+(Z*25SK(P,a)>) 

4020 GRAPHICS 0:SETC0L0R 2,11,0:SETCQL 
OR 4,11,0:POKE 752,1:B0T0 4100 
4030 FOR Z=! TO 36:7 Z$;;NEXT Z:RETURN 
4100 7 CHRII2);:Zt=CHRt(13):G0SUB 4030 
:? CHRI(22); 

4105 7 CHR$12);:POSITION 19,1:7 " TITAN 
“:POSITION 39,1:7 CHRII22);" ";CHRI(2) 
j:POSITION 39,2:7 CHRI(22); 

4110 7 CHRI12);:? “ MONTHLY REPORT":PO 
SITION 29,3:7 DA;"/1/“;YE:PQSITIQN 39, 
3:7 CHR$(22);" CHR$(2POSITION 39, 
4:7 CHR$(22! 

4120 7 CHRI12);:ZI=CHRIIIS):GOSUB 4030 
:? CHRI(22);:GOSUB J7 

4130 7 "! ITEM /ACTA /BELL /CHIM 
/DAED /"; 

4131 REM Line 4130: Replace ! with 


) ) ) ■ ) ) ) ) ) ) ) 


<CTRL>B. Replace / with CCTRDV 
4140 7 CHRI(2);:ZI=CHRI(18):GOSUB 4030 
:? CHRI(22); 

4144 REM Lines 4145-4195: Replace ! 
with <CTRL>B. Replace / with <CTRL)V 

4145 7 “! Ill 

/ /": 

4150 Y= 8 :FOR Z=0 TO 6 :Y=Y+1:POSITION 1 
,Y:H=Z*10:IF W=0 THEN 7 " ! STATUS“:GO 
TO 4170 

4160 7 “ ! “;EQ$ltf-9,W) 

4170 FOR X=i TO 4:P0SITI0N 60+9,Y:7 n 
/";K!X,Z):POSITION 39,Y:7 n /“;:NEXT X: 
NEXT Z 

4180 FOR Z=1 TO 4:Y=Y+1:POSITION 1,Y:7 
" ! “;EX$(ZI10-9,ZI10) 

4190 FOR X=1 TO 4:POSITION 60+9,Y:7 ” 
/";K!X,Z+12):P0SITI0N 39,Y:7 "/“;:NEXT 
X:NEXT Z 

4195 7 "! Ill 

/ /“; 

4200 7 ■ “;:F0R Z=1 TO 36:7 CHRIi18!;: 
NEXT Z 

4210 POSITION 8,23:7 "Press TRIGGER to 
continue.";:GOSUB J 6 
4220 IF STRIS(0!=0 THEN GOSUB J5:RETUR 
N 

4230 GOTO 4220 
Efficiency rating algorithms. 

5000 FF=0:FOR Z=1 TO 5:FF=FF+K(P,Z!tZ: 
NEXT Z:IF FF<1 THEN FF=1 
5010 EF=K(P,6)I10/FF:IF EF>1 THEN EF=F 
F/!K(P,6!il0) 

5020 EF=EFt100:FF=K(P,7)*2.5:IF FF<0 T 
HEN FF=FF*-2 

5030 EF=EF-FF:FF=(K(P,8)-6!I3:IF FF<0 
THEN FF=FFt-2 

5040 EF=EF-FF+IK IP,9!*5) + IK IP, 10)15! + ! 
KIP,11)17.5)+(KIP,121I10):EF=INT!EF):I 
F EFC5 THEN EF=5 
5050 IF EF.MOO THEN EF=100 
5060 IF K(P,9!=0 THEN EF=1 
5070 KIP,15)=EF:RETURN 
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New cost algorithms. 

6000 FOR Z=1 TO 8:X=0:F0R Y=i TO 4:X=X 

*K!Y,Z):NEXT Y:X=X/PL 

6010 IF Z>5 THEN C(Z)=INT(C(Z)+iCiZ)*X 

/(55-LV)));GOTO 6050 

6020 C(Z)=INT(C(Z!+(C(Z)iX/(25-LV!)-(C 

(Z)ll/(25-LV!)! 

6030 IF CIZXIOOIZ THEN C(Z)=100tZ 
6040 IF C(Z))200IZ THEN C(Z)=200*Z 
6050 IF Z>6 AND CiZXl THEN C(Z)=1 
6060 IF Z>6 AND CXZi>50 THEN C!Z;=50 
6070 IF Z=6 AND C(6)>4000 THEN C!Z)=40 
00 

6080 NEXT ZiFOR Z=1 TO 4:F0R Y=8 TO 12 
:K(Z,Y> =0:NEXT Y:NEXT ZiRETURN 

Adjust date. 

7000 DA=DA+1;IF DA=13 THEN DA=1:YE=YE+ 
1 

7010 RETURN 

End of game. 

8000 IF YE=2051 AND DA>3 THEN 8500 
8010 R=INT(RND(0!!2!:IF R=0 OR YE=2050 
THEN RETURN 

8500 POSITION 6,23;? "The INSPECTORS h 
ave arrived!“;:FQR Y=1 TO 10;F0R Z=15 
TO 0 STEP -1 

8510 SETCOLOR 2,11,Z:S0UND 0,160-IZ«0 
),10,Y:NEXT Z:NEXT YiSOUND 0,0,0,0:805 
UB JO 

8520 POSITION 3,23:? “Your performance 
is being assessed."j:FOR Z=1 TO 200:N 
EXT Z:IF”PL=1 THEN 8600 
8530 Z=-l;Y=0:FOR X=1 TO PL:IF KiX.Oi) 
=Z THEN Z=K(X,Oi:Y=Z 
8540 NEXT X:IF Y=1 THEN 8590 
8550 FOR X=1 TO Y-lsIF K(X,0)=Z THEN 8 
570 

8560 NEXT X:GOTO 8590 

8570 FOR. X=1 TO Y:IF KtX.OXO THEN K(X 

,01=0:NEXT XsGOTO 8530 

8580 K(X,0) =K(X, 16) 1100+K<X, 15XKIX, 14 

)+K(X, 13) +RNDX1 >:NEXT X.-GOTO 8530 

8590 SETCOLOR 4,5,0:SETCOLOR 2,5,0:P0S 


ITION 4,22:? "The supervisor of";A$(YI 
10-9 S YtlO):“has won":GQTO 8640 
8600 IF K(1,0)>19 THEN 8630 
8610 SETCOLOR 4,3,0:SETCOLOR 2,3,0:P0S- 
ITION 2,22:? "I am sorry to report tha 
t you did not"; 

8620 POSITION 0,23;? “achieve enough s 
tatus to gain all TITAN";:GQSUB 20060: 
GOTO 8700 

8630 SETCOLOR 4,8,0:SETC0L0R 2,8,0:PGS 
ITION 4,22:? "Because of your status y 
ou have won" 

8640 ? " the right to mine all of TI 
TAN!! ";;GQSUB 37 
8700 GOTO 8700 

Sound routines. Common to parts one 
and two. 

10000 DATA T,162,400,I,108,400,T,81,60 
0,A,64,100 

10010 DATA 8,8,8,3,8,20,28,20,28,20,62 
,54,99 

10020 DATA 240,208,240,97,255,241,144, 
216 

20000 FOR UZ=15 TO 0 STEP -0.5:FOR UY= 

3 TO 0 STEP -1;S0UND 0,15-UY,10,UZ:NEX 
T UY;NEXT UZ:RETURN 
20010 FOR UZ=16 TO 0 STEP -2:FQR UY=0 
TO 5;SOUND 0,15-UY,10,UZ:NEXT UY:NEXT 
UZ:RETURN 

20020 FOR UZ=10 TO 0 STEP -2:FOR UY=5 
TO 10:SOUND 0,15-UY,10,UZsNEXT UY:NEXT 
UZ:RETURN 

20030 FOR UZ-2 TO 0 STEP -2:FOR UY=50 
TO 100 STEP 10:SOUND 0,150-UY,10,UZ:NE 
XT UY:NEXT UZ:RETURN 
20040 SOUND 0,UN,10,2:F0R UZ=! TO 2:NE 
XT UZ:SOUND 0,0,0,0:RETURN 
20050 SOUND 0,255,10,4:FOR UZ=1 TO 9:N 
EXT UZ:SOUND 0,0,0,0;RETURN 
20060 FOR UZ=16 TO 0 STEP -1:F0R UY=15 
0 TO 200 STEP 10:SOUND 0,UY,10,UZ:NEXT 
UY:NEXT UZ:RETURN 

20070 FOR UZ=8 TO 0 STEP -1:F0R UY=55 
TO 105 STEP 10:SOUND 0,UY,10,UZ;S0UND 
1,UY-50,90,UZ:NEXT UY:NEXT UZ:RETURN 
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Word Search Puzzle Generator 

by David W. Durkee Atari version by Jon R. Voskuii 


Word-Search Puzzle Generator is for 
an Atari with at least 8K RAM and a 
printer. 

Word-Search Puzzle Generator is a 
clever program that lets you create 
entertaining puzzles in little more time 
than it takes to imagine the words for 
them. 

Upon running the program, you will 
receive the option of seeing the puzzle 
as it is created or leaving the screen 
blank so that you can enjoy working 
the puzzle yourself later. Next, you 
simply type words to your heart’s 
content. The Atari does the rest, 
placing your words in random orienta¬ 
tions in the 37-by-20-character letter 
matrix. 

The size of the screen display was the 
reason for the choice of these dimen¬ 
sions. If you are interested only in the 
print-out of your puzzle, you may 
easily alter the size of the matrix by 
changing the DIMension statement and 
the various loops that use those dimen¬ 
sions. 

After you have typed all the words 
you wish to include in your puzzle, 
type the word STOP . This will instruct 
the computer to print an answer key, 
the complete puzzle with random let¬ 
ters filled in, and a list of the words 
you entered. After this, you may elect 
to print additional copies of the puzzle. 


Besides the obvious entertainment 
value of word-search puzzles, there is 
also great potential for educational 
applications. Working this type of puz¬ 
zle is an easy way to become familiar 
with a list of words, whatever the sub¬ 
ject matter might be. 

Variables 

A(i,j): Array that stores the ASCII 
codes for letters in the letter matrix. 
A$: Input variable. Also used to 
assemble each line of the puzzle as it 
is printed. 

B: Counts the directions in which a 
word may go. 

B(i,j): Notes the directions in which 
the computer may draw a word, given 
a random starting position. If 
B(X + 2,Y + 2) is 1, then the word 
shares at least one letter with other 
words. 

C: Loop counter. 

D, R: Used to select the best direction 
in the B matrix. 

L, U: Random starting co-ordinates 
for a word. 

X, Y: Indicate word direction along 
the x and y axes; values can be -1, 0, 
or 1 (but not both may be 0), defin¬ 
ing the eight diferent directions. 

XI, Yl: Printing co-ordinates for in¬ 
dividual letters; derived from U, L, 

X, and Y. 
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ss 

Atari BASIC 

ss 

ss 

'Uord Search Puzzle’ 

ss 

ss 

Author: David Durkee 

SS 

SB Translator: Jon R. Voskuil 

SS 

ss 

Copyright (c) 1982 

SS 

SS SoftSide Publications, Inc 

SS 

SS 


SS 


ss ss ss ss ss ss ss ss ss ss ss 

Initialization and instructions. 

90 POKE 752,1 

100 ? CHR$(125):POSITION 10,5:PRINT "H 
ORD SEARCH PUZZLE” 

105 POSITION 10,8:PRINT "BY DAVID W. D 
URKEE":P08ITI0N 10,10:PRINT "COPYRIBHT 
iC! 1981" 

107 POSITION 7,13:PRINT "TRANSLATED BY 
JON VOSKUIL” 

110 FOR 1=1 TO 2000:NEXT I 
120 ? CHR$!125!:POSITION 2,5:PRINT "TO 
CREATE A PUZZLE, SIHPLY ENTER A WO 
RD WHICH YOU WOULD LIKE TO HAVE IN" 

125 PRINT "THE PUZZLE AFTER THE ’?’ PR 
OHPT." 

130 PRINT :PRINT "WHEN YOU’VE ENTERED 
ALL THE WORDS YOU WOULD LIKE IN THE PU 
ZZLE, ENTER THE" 

135 PRINT "WORD ’STOP’ AND THE ATARI W 
ILL DO THE REST," 

140 PRINT :PRINT "IF YOU WOULD LIKE A 
PUZZLE FOR YOUR- SELF (BLANK SCREEN), 
THEN TYPE ’1’;" 

145 PRINT "OTHERWISE, TYPE ’0’ TO BE6I 
N: 

150 INPUT BLANK:PRINT "}":Z=0 
160 DIM W$(1000),A$(41!,B(3,3),A(37,20 
) 

165 Wi="":FOR 1=1 TO 37:FQR J=1 TO 20: 
A(I,J)=0:NEXT J:NEXT I 

Beginning of word-entry loop. 

170 Z=Z+1 


180 POSITION 2,22:PRINT "WORD #";Zj": 

INPUT A$:IF A$="" THEN 180 
190 IF At="STOP" THEN 530 

Choose random starting location. 

200 W$fLEN(W$)+l)=Ai:Wt(LEN(Wt)+l)="t" 
210 U=INT(RND(l)t2Q)+l:L=INT(RND(1)137 
)+l 

Check each direction to see If word can 
be written that way. 

220 FDR X=-l TO 1:FQR Y=-l TO 1 
230 IF X=Y AND Y=0 THEN 330 
240 X1=L:Y1=U 
250 FOR C=1 TO LEN(At) 

260 X1=X1+X:Y1=Y1+Y 

270 IF XI>37 OR X1<1 OR Yl>20 OR Y1<1 

THEN B(X+2,Y+2)=0:GOTO 330 

280 IF A(X1,Y1)=0 THEN 310 

290 IF A!Xl,Yl)OASC!A$(C,C)) THEN B(X 

+2,Y+2)=0:GOTO 330 

300 B(X+2,Y+2)=B(X+2,Y+2)+l 

310 NEXT C 

320 B(X+2, Y+2)=B(X+2,Y+2)+1:B=8+l 
330 NEXT V:NEXT X 
340 IF B=0 THEN 210 


Select direction. If possible, make word 
intersect with another. 

350 R=2:D=2 

360 FOR X=1 TO 3:FOR Y=1 TO 3 
370 IF B(X,Y)>B(R,D) THEN R=X:D=Y 
3B0 NEXT Y:NEXT X 
390 X=R-2:Y=D-2 

400 IF X=-l AND Y=-l AND B(l,l)=l THEN 
420 

410 60TO 440 

420 X=INT(RND(1)43)-1:Y=INT(RND(1)43)- 
1 

430 IF (X=0 AND Y=0! OR B(X+2,Y+2)=0 T 

HEN 420 

440 X1=L:Y1=U 
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Print word on screen, unless user chose 
a blank screen. 

450 FOR C=1 TO LEN(A$) 

460 X1=X1+X:Y1=Y1+Y 
470 A(Xl,Yl)=fiSC(ftt(C,C)) 

480 IF BLANK THEN 500 
490 POSITION Xl+l,YlsPRINT CHR*(A(X1,Y 
1 >); 

500 NEXT C 

510 B=0:FOR X=i TO 3:F0R Y=1 TO 3:B(X, 

Y)=0:NEXT Y:NEXT X 

520 POSITION 2,22:PRINT " 

“;:GOTO 170 


Prepare answer key. 


530 FOR X=1 TO 37:FOR Y=1 TQ 20 

540 IF AIX.YIOO THEN 560 

550 A(X,Y)=45;PQSITIQN X+1,Y:PRINT 
* 

560 NEXT Y:NEXT X 

570 POSITION 2,22:PRINT "READY TO PRIN 
T; TURN ON PRINTER AND HIT 'RETURN’ 
INPUT A$:G0SUB 680 

580 LPRINT :LPRINT “BORD PUZZLE ANSWER 
KEY" 

590 LPRINT :LPRINT :LPRINT 


Fill in blanks with random letters. 


600 PRINT :PRINT "PLEASE WAIT A NONENT 
FOR HE TO CREATE PUZZLE, , 

610 FOR X=1 TO 37:FOR Y=1 TO 20 
620 IF A(X,Y)<>45 THEN 640 
630 B=INT{RND(li426)+65:A(X,Y)=B 
640 NEXT Y-.NEXT X 
650 60SUB 680 

660 LPRINT :LPRINT "COMPUTER GENERATED 
WORD PUZZLE" 

670 LPRINT :LPRINT jLPRINT :60T0 730 


Print complete puzzle. 
680 LPRINT 

690 FOR X=1 TO 37:A$="" 


692 FOR Y=1 TO 20 

695 A$(LENIAf1+1)=CHRt(A(X,Y)) 

697 A$(LEN(AJ)+1)=" " 

700 NEXT Y 

705 A$=At(l,LEN(A$)-l> 

710 LPRINT AfiNEXT X 
720 RETURN 


Print word list. 


730 LPRINT :LPRINT :LPRINT “WORD LIST" 
:LPRINT 

740 J=l:FOR 1=1 TO LENXWt) 

744 IF Wt(I,I)="»" THEN LPRINT H$U,I- 
1):J=I+1 
746 NEXT I 


Another copy? If not, then end. 


760 PRINT :PRINT "WOULD YOU LIKE ANOTH 
ER COPY INPUT Al 

765 IF AK1,1!="Y" THEN LPRINT ;LPRINT 
:LPRINT :LPRINT :GGT0 650 
770 END 
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Fugue is a musical program for an 
Atari with 16K RAM. 

For lovers of serious music, here’s a 
program that will play a Bach fugue 
for you, and let you watch it in color 
on your video screen as well. While this 


program does not permit you to con¬ 
trol the actual music, as many software 
packages do, it does have four voices 
and an intricate interplay thereof, un¬ 
common for the Atari. 

Type it in and relax. We think you’ll 
enjoy it. 


ss 

ss ss ss ss ss ss ss ss ss 

SS 

ss 


SS 

ss 

Atari BASIC 

SS 

ss 

'Fugue’ 

SS 

ss 

Authors: 

SS 

ss 

William Morris & John Cope 

SS 

ss 

Copyright (c) 1982 

SS 

ss 

SoftSide Publications, Inc 

ss 

ss 


ss 

ss 

SS SS SS SS SS SS SS SS SS 

ss 


1 REH (c) 1980 Hi. Horns & J. Cope 
10 DIR «<3),X(3),Y(3):R=RND(0)*15 

Title page. 

20 GRAPHICS 2+16iSETC0LQR 4,3,2;COLOR 
32:PLOT 6,5:7 #6;"FUGUE 8 :FOR TT=1 TO 2 
000:NEXT TT 

Draw four lines, and place the “notes” 
at the left edge. 

210 GRAPHICS 3+16:SETC0L0R 0,8,9:SETC0 
LOR 1,8,5:SETC0LQR 2,9,2:SETC0L0R 4,R, 
0 


220 COLOR 3 

230 FOR 2=0 TO 3:PL0T 0,2t5+3:DRAHT0 3 
9,Z*5+3:NEXT Z 

240 FOR Z=0 IQ 3:H(Z)=0:X(Z)=3:NEXT Z 


Jump to line 330 when an OUT OF DATA 
error occurs. 


250 TRAP 330 

For each of the 4 voices (Z =^0"to 3), read 
the note (Y), then plot it at the proper 
position (W) on the proper line (X). 


300 FOR Z=0 TO 3:READ Y:Y<Z>=Y:COLOR 3 
:PL0T W(Z),X(Z):C0L0R 1:«<Z)=INT<Y<Z)/ 
6):X(Z)=Zi5+3:PL0T H(Z),X(Z):NEXT Z 
310 SOUND 0,Y(01,10,4:S0UND i,Y(l),10, 
4;SOUND 2,Y(2),10,4:S0UND 3,Yf3U0,4: 
GOTO 300 


Turn off the 4 voices, then restart the 
program. 

330 FOR Z=0 TO 3:SQUND Z,0,0,0:NEXT Z: 
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FOR Z=1 TO 500:NEXT Z:RUN 
Data. 


1000 DATA 81,0,0,0,81,0,0,0,81,0,0,0,8 

1 , 0 , 0,0 

1010 DATA 53,0,0,0,53,0,0,0,53,0,0,0,5 
3,0,0,0 

1020 DATA 68,0,0,0,68,0,0,0,68,0,0,0,6 

8 , 0 , 0,0 

1030 DATA 68,0,0,0,68,0,0,0,72,0,0,0,7 

2 , 0 , 0,0 

1040 DATA 81,0,0,0,81,0,0,0,68,0,0,0,6 

8 , 0 , 0,0 

1050 DATA 72,0,0,0,72,0,0,0,81,0.,0,0,8 

1 , 0 , 0,0 

1060 DATA 85,0,0,0,85,0,0,0,72,0,0,0,7 

2 , 0 , 0,0 

1070 DATA 108,0,0,0,108,0,0,0,108,0,0, 
0,108,0,0,0 

1080 DATA 81,0,0,0,81,0,0,0,108,0,0,0, 
108,0,0,0 

1090 DATA 72,0,0,0,72,0,0,0,108,0,0,0, 
108,0,0,0 

1100 DATA 68,0,0,0,68,0,0,0,72,0,0,0,8 

1 , 0 , 0,0 

1110 DATA 72,0,0,0,72,0,0,0,108,0,0,0, 
108,0,0,0 

1120 DATA 81,0,0,0,81,0,0,0,108,0,0,0, 
81,0,0,0 

1130 DATA 72,0,0,0,72,0,0,0,108,0,0,0, 
72,0,0,0 

1140 DATA 6B,0,0,0,68,0,0,0,72,0,0,0,8 

1 , 0 , 0,0 

1150 DATA 72,0,0,0,108,0,0,0,53,0,0,0, 
60,0,0,0 

1160 DATA 68,0,0,0,72,0,0,0,81,0,0,0,6 

8 , 0 , 0,0 

1170 DATA 72,0,0,0,81,0,0,0,85,0,0,0,7 

2 , 0 , 0,0 

1180 DATA 81,0,0,0,108,0,0,0,81,0,0,0, 
72,0,0,0 

1190 DATA 68,0,0,0,60,0,0,0,53,0,0,0,4 
7,0,0,0 

1200 DATA 45,108,0,0,47,108,0,0,53,108 


,0,0,45,108,0,0 

1210 DATA 47,72,0,0,53,72,0,0,57,72,0, 
0,47,72,0,0 

1220 DATA 53,91,0,0,53,91,0,0,72,91,0, 
0,72,91,0,0 

1230 DATA 53,91,0,0,53,91,0,0,47,96,0, 
0,47,96,0,0 

1240 DATA 45,108,0,0,40,108,0,0,45,91, 
0,0,40,91,0,0 

1250 DATA 45,96,0,0,40,96,0,0,45,108,0 
,0,40,108,0,0 

1260 DATA 35,114,0,0,40,114,0,0,35,96, 
0,0,33,96,0,0 

1270 DATA 35,144,0,0,40,144,0,0,45,144 
,0,0,47,144,0,0 

1280 DATA 45,108,0,0,35,108,0,0,40,144 
,0,0,35,144,0,0 

1290 DATA 57,96,0,0,35,96,0,0,40,144,0 
,0,35,144,0,0 

1300 DATA 53,91,0,0,35,91,0,0,40,96,0, 
0,35,108,0,0 

1310 DATA 57,96,0,0,35,96,0,0,40,144,0 
,0,35,144,0,0 

1320 DATA 45,108,0,0,53,108,0,0,57,144 
,0,0,53,108,0,0 

1330 DATA 40,96,0,0,53,96,0,0,57,144,0 
,0,53,96,0,0 

1340 DATA 35,91,0,0,53,91,0,0,57,96,0, 
0,53,108,0,0 

1350 DATA 40,96,0,0,53,144,0,0,57,72,0 
,0,53,81,0,0 

1360 DATA 72,91,0,0,72,96,0,0,45,108,0 
,0,45,91,0,0 

1370 DATA 81,96,0,0,81,108,0,0,47,114, 
0,0,47,96,0,0 

1380 DATA 91,108,0,0,91,144,0,0,72,108 
,0,0,72,96,0,0 

1390 DATA 53,91,0,0,53,81,0,0,45,72,0, 
0,45,64,0,0 

1400 DATA 50,60,0,0,50,68,0,0,35,60,0, 
0,35,53,0,0 

1410 DATA 00,60,0,0,00,68,0,0,00,72,0, 
0,50,60,0,0 

1420 DATA 53,68,0,0,53,72,0,0,40,53,0, 
0,40,60,0,0 
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1430 DATA 00,68,0,0,00,72,0,0,00,81,0, 
0,53,68,0,0 

1440 DATA 60,72,0,0,68,72,0,0,60,81,0, 
0,53,81,0,0 

1450 DATA 60,85,0,0,35,85,0,0,40,108,0 

ft IftO ft ft 

} Vj yfttj iVUj VjV 

1460 DATA 68,81,162,0,40,81,162,0,42,8 

1,162,0,40,81,162,0 

1470 DATA 72,0,108,0,45,0,108,0,47,0,1 

08,0,45,0,108,0 

1480 DATA 40,0,136,0,40,0,136,0,40,108 
,136,0,40,108,136,0 

1490 DATA 40,81,136,0,40,81,136,0,40,7 
2,144,0,40,72,144,0 


1500 DATA 0,68,162,0,0,60,162,0,0,68,1 
36,0,0,60,136,0 

1510 DATA 0,68,144,0,0,60,144,0,0,68,1 
62,0,0,60,162,0 

1520 DATA 0,53,173,0,0,60,173,0,0,53,1 
44,0,0,50,144,0 

1530 DATA 0,53,217,0,0,60,217,0,0,68,2 
17,0,0,72,217,0 

1540 DATA 68,108,162,0,53,108,162,0,60 
,0,217,0,53,0,217,0 

1550 DATA 85,i21,144,0,53,121,144,0,60 
,0,217,0,53,0,217,0 

1560 DATA 81,108,136,0,53,108,136,0,60 
,0,144,0,53,0,162,0 

1570 DATA 85,121,144,0,53,121,144,0,60 
,0,217,0,53,0,217,0 

1580 DATA 68,00,162,0,68,Bl,162,0,68,8 

5,217,0,68,81,162,0 

1590 DATA 60,0,144,0,60,81,144,0,60,85 

,217,0,60,81,162,0 

1600 DATA 53,0,136,0,53,81,136,0,53,85 
,144,0,53,81,162,0 

1610 DATA 60,0,144,0,60,81,217,0,60,85 
,108,0,60,81,121,0 

1620 DATA 0,108,136,0,0,108,144,0,68,1 

08,162,0,68,108,136,0 

1630 DATA 0,121,144,0,0,121,162,0,72,1 

21,173,0,72,121,144,0 

1640 DATA 0,136,162,0,0,136,217,0,108, 

136,162,0,108,136,144,0 

1650 DATA 81,0,136,0,72,0,121,0,68,0,1 


OB,0,81,0,96,0 

1660 DATA 72,0,91,217,72,0,96,217,53,0 

,108,217,53,0,91,217 

1670 DATA 57,0,96,144,57,0,108,144,47, 

0,114,144,47,0,96,144 

i LOI\ f\ATA 7C A 4 AO 4 00 77 A 4 AO 4 00 7C 

iuuv umn jJj uj iVDj iDijOJjUj iU0j 

,0,144,182,40,0,144,182 

1690 DATA 45,0,108,182,47,0,108,182,53 

,0,96,193,57,0,96,193 

1700 DATA 53,0,91,217,53,0,81,217,0,0, 

91,182,0,0,81,182 

1710 DATA 33,0,91,193,33,0,81,193,0,0, 
91,217,0,0,81,217 

1720 DATA 47,0,72,230,47,0,81,230,0,0, 
72,193,0,0,68,193 

1730 DATA 0,0,72,230,0,0,81,230,35,0,9 
1,230,35,0,96,230 

1740 DATA 35,0,91,217,35,0,72,217,35,0 
,81,217,35,0,72,217 

1750 DATA 35,0,114,193,35,0,72,193,35, 
0,81,193,35,0,72,193 
1760 DATA 35,0,108,182,35,0,72,182,35, 
0,81,193,35,0,72,217 
1770 DATA 35,0,114,193,35,0,72,193,35, 
0,81,193,35,0,72,193 
1780 DATA 35,0,91,217,35,0,108,217,35, 
0,114,217,35,0,108,217 
1790 DATA 35,0,81,193,35,0,108,193,35, 
0,114,193,35,0,108,193 
1800 DATA 35,0,72,182,35,0,108,182,35, 
0,114,193,35,0,108,217 
1810 DATA 35,0,81,193,35,0,108,193,35, 
0,114,193,35,0,108,193 
1820 DATA 40,0,91,217,35,0,91,217,33,0 
,96,217,35,0,108,217 
1830 DATA 40,0,114,230,45,0,108,230,47 
,0,114,230,53,0,108,230 
1840 DATA 53,0,108,217,53,0,108,217,53 
,0,108,217,53,0,108,217 
1850 DATA 53,0,i08,217,53,0,108,217,53 
,0,108,217,53,0,108,217 
1860 DATA 53,0,108,217,53,0,108,217,53 
,0,108,217,53,0,108,217 
1870 DATA 53,0,108,217,53,0,108,217,53 
,0,108,217,53,0,108,217 
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by William Morris 
and John Cope 


Plight of the 


Flight of the Bumblebee is a musical 
animated graphics program for an 
Atari with 16K RAM. 

Those of you without culture may 
have to be informed that The Flight of 
the Bumblebee is not a beekeeper 
simulation, but rather a classic tune 
from Rimsky-Korsakoff’s 1900 opera, 
The Tale of the Tsar Saltan . The 
authors of this program, whose names 
are familiar to regular SoftSide 
readers, have digitized and animated 
this great Russian composer’s work to 
suit the music and graphic capabilities 


of the Atari computer . 

No special instructions are needed; 
you just type in the program of your 
choice and RUN. 

Variables 

UN: The pitch of the note to be 
played by the sound routine. 

UB: Memory location used in the 
routine to set the three graphics 
modes used in the title page. 

UC: Memory location used in moving 
the redefined character set. 

UZ, Z: Counters. 


S3 

S3 S3 S3 33 SS 3S S3 S3 SS 

S3 

S3 


S3 

S3 

Atari BASIC 

33 

ss 

'■Flight of the Bumblebee 3 

S3 

S3 

Authors; 

SS 

3S 

William Morris & John Cope 

ss 

S3 

Copyright (cl 1982 

ss 

S3 

SoftSide Publications, Inc 

ss 

S3 


ss 

SS 

SS SS SS S3 S3 SS S3 S3 S3 

ss 


Set up a jump to line 19999 when the 
data are all read. Reserve memory for a 
redefined character set. 

10 TRAP 19999:GQSUB 30300 
Title display. 

20 GOSUB 30200:POKE 87,2:POSITION 3,1: 

? #6}“THE BUMBLE BEE 8 

30 POKE 87,1:POSITION 1,7:? #6; a by rii 

sk-v korsako'ff “s-FQKE 752,1 

40 POKE 87,0:POSITION 5,14:? Me) Ns. 

Norris & 3. Cope 1981” 

100 GOSUB 30310 

Set up the graphics display. Line 110 
establishes the colors to be used. Line 
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130 sets up the “text window.” Line 140 
draws the "grass.” Lines 150-160 use 
redefined characters to draw the 
“flowers.” Lines 170-190 draw the 
“beehive.” Note: the COLOR 87, 130, 

214, and 215 statements are not 
misprints; they are a method of printing 
redefined characters. 

110 GRAPHICS 1:POKE 756,UC/255+2:SETC0 
LOR 0,15,2:SETC0L0R 1,14,12:SETC0L0R 2 
,11,0:SETCOLOR 3,3,0:SETCQL0R 4,8,4 
120 POKE 752,1 

130 ? 8 ! The Bumble Bee 3“:? ” v*:? 8 
from The Legend of Tsar Saltan 8 :? 

" N. Rissky-Korsakoff 

h. 

? 

131 REN Line 130: Replace ! with 
<CTRL>B. Replace 3 with <CTRL>A 
140 COLOR 215:FOR Z=14 TO 19:PL0T 0,2: 
DRAWT0 19,Z:NEXT 2 

150 FOR Z=G TO 9:IF Z=5 OR 1=7 THEN NE 
IT Z 

160 COLOR 130:PLOT Z,12:C0L0R 214:PLQT 
Z,13:NEXT Z 

170 COLOR 4:PLOT 14,B:CQL0R 3:PLGT 15, 

8:COLOR 5:PLOT 16,8:C0L0R 3:PLOT 14,9: 

DRAWT0 16,9 
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180 COLOR 87iFOR Z=ll TO 15 STEP 2sPL0 
T 12,Z:DRAWT0 18,Z:NEXT ZjCOLOR 4:PL0T 
13,9;CDLOR 5:PL0T 17,9 
190 COLOR 3:FOR Z=10 TO 14 STEP 2:PLQT 
12,Z;DRAWTO 18,ZiNEXT Z:COLOR 4:PL0T 
12,lOiCOLOR 5:PLOT 18,10 

Sound and graphics displays are 
Integrated In line 200. Line 220 erases 
the bee before returning to line 200 for 
the next plot position. 

200 COLOR 1:READ UNiPLOT UN/9,12-UN/15 

:SOUND 0,UN,10,8 

210 FOR Z=1 TO 15:NEXT Z 

220 SOUND 0,0,0,0:CDLOR OtPLOT UN/9,12 

-UN/15:GOTO 200 

Data for redefined characters. 

1000 DATA 0,0,0,0,0,0,0,0 

1001 DATA 216,81,115,214,116,30,31,14 

1002 DATA 40,146,146,214,254,124,56,16 

1003 DATA 170,170,170,170,170,170,170, 
170 

1004 DATA 0,2,10,42,42,170,170,170 

1005 DATA 0,128,160,168,16B,170,170,17 
0 

1010 DATA 17,19,151,222,80,112,16,16 

1011 DATA 255,255,255,255,255,255,255, 
255 

Data for music. 

1040 DATA 96,102,108,114,108,114,121,1 
28,96,102,108,114,108,114,121,128 
1060 DATA 96,102,108,114,121,128,136,1 

44.153.144.136.128.121.114.108.102 
1080 DATA 96,102,10B,114,121,91,96,102 
,?6,102,108,114,121,114,108,102 

1100 DATA 96,102,108,114,121,91,96,102 

,96,102,108,114,121,114,108,102 

1120 DATA 96,102,108,114,108,114,121,1 

28.121.114.108.102.96.91.96.102 

1140 DATA 96,102,108,114,108,114,121,1 

28.121.114.108.102.96.85.81.76 

1160 DATA 72,76,81,85,91,68,72,76,72,7 

6.81.85.91.85.81.76 


1180 DATA 72,76,81,85,91,68,72,76,72,7 

6.81.85.91.85.81.76 

1200 DATA 72,76,81,85,81,85,91,96,91,8 

5.81.76.72.68.72.76 

1220 DATA 72,76,81,85,91,96,102,96,91, 

OC 04 “ 1L 70 LO in 11 
□ / a 

1240 DATA 72,144,144,144,144,144,144,1 

44.136.153.136.153.136.153.136.153 

1260 DATA 144,144,144,144,144,144,144, 

144.136.153.136.153.136.153.136.153 

1280 DATA 144,136,144,153,144,136,144, 

153.144.136.144.153.144.136.144.153 

1300 DATA 144,136,128,121,114,121,128, 
136,144,136,128,121,114,108,102,96 
1320 DATA 108,108,108,108,10B,108,108, 

108,102,114,102,114,102,114,102,114 

1340 DATA 108,108,108,108,108,108,108, 

108.102.114.102.114.102.114.102.114 

1360 DATA 108,102,108,114,108,102,108, 

114.108.102.108.114.108.102.108.114 
1380 DATA 108,102,96,91,85,91,96,102,1 
08,102,96,91,85,81,76,72 

1400 DATA 53,57,60,64,68,50,53,57,53,5 
7,60,64,68,64,60,57 

1420 DATA 53,57,60,64,60,64,68,72,68,6 

4.60.57.60.57.53.50 

1440 DATA 47,50,53,57,53,57,60,64,60,6 
4,68,72,76,81,85,91 

1460 DATA 96,91,96,102,96,91,96,102,96 

,91,96,102,96,91,96,102 

1480 DATA 96,91,96,102,96,91,96,102,96 

,91,96,102,96,91,96,102 

1500 DATA 47,47,47,47,47,47,60,60,72,7 

2,91,91,72,72,60,60 

1520 DATA 47,47,47,47,47,47,60,60,72,7 

2,91,91,72,72,60,60 

1540 DATA 47,47,47,47,47,47,47,47,47,4 

7,47,47,47,47,47,47 

1560 DATA 96,96,96,96,96,91,85,81,76,7 

2.68.64.60.57.53.50 

1580 DATA 47,50,53,57,60,45,47,50,47,5 

0,53,57,60,57,53,50 

1600 DATA 47,50,53,57,60,45,47,50,47,5 

0,53,57,60,57,53,50 
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1620 DATA 47,50,53,57,53,57,60,64,60,5 

7.53.50.47.45.47.50 

1640 DATA 47,50,53,57,53,57,60,64,60,5 

7.53.50.47.42.40.37 

1660 DATA 35,37,40,42,45,33,35,37,35,3 

7.40.42.45.42.40.37 

1680 DATA 35,37,40,42,45,33,35,37,35,3 

7.40.42.45.42.40.37 

1700’DATA 35,37,40,42,40,42,45,47,45,4 

2.40.37.35.33.35.37 

1720 DATA 35,37,40,42,47,45,42,40,37,3 

5.33.31.29.27.25.24 

1740 DATA 23,24,25,27,29,21,23,24,23,2 

4.25.27.29.27.25.24 

1760 DATA 23,24,25,27,29,21,23,24,23,2 

4.25.27.29.21.23.24 

1780 DATA 85,81,76,72,68,64,60,57,53,5 
7,60,64,60,64,68,72 

1800 DATA 76,72,68,64,60,57,53,50,47,4 

5.47.50.47.45.47.50 

1820 DATA 47,81,76,72,68,64,60,57,53,5 
7,60,64,60,64,68,72 

1840 DATA 76,72,63,64,60,57,53,50,47,4 

5.47.50.47.42.40.37 

1860 DATA 35,37,40,42,40,42,45,47,45,4 
7,50,53,57,60,64,68 

1880 DATA 72,76,81,85,81,85,91,96,91,9 

6,102,108,114,121,128,136 

1900 DATA 144,136,144,153,144,136,144, 

153,144,136,144,153,144,128,121,108 

1920 DATA 96,91,96,102,96,91,96,102,96 

,91,96,102,96,85,81,76 

1940 DATA 72,81,B5,91,96,102,108,114,1 

21,128,136,153,144,136,128,121 

1960 DATA 114,108,102,96,91,85,81,76,7 

2,68,64,60,57,53,50,47 
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1980 DATA 35,35,35,35,35,35,35,35,72,7 
2,72,72,96,96,96,96 

Plot the bee’s final position, then restart 
the program. 

19999 SOUND 0,144,10,8:COLOR 1:PLOT 15 
,7:RESTORE :F0R Z=1 TO 64sREAD X:NEXT 
Z:TRAP 19999:SOUND 0,0,0,0 

20000 FOR Z=1 TO 400:NEXT Z:GOTO 110 

Adjust the screen display to permit the 
use of three graphics modes in the title 
display. 

30200 GRAPHICS 0:SETC0L0R 2,8,4:SETC0L 
OR 4,8,4:UB=PEEKf560)+PEEK(561)1256+4: 
POKE UB-1,70:POKE UB+2,7:P0KE UB+3,7 
30210 FOR UZ=4 TO 8:P0KE UB+UZ,6:NEXT 
UZ-.POKE UB+22,65:POKE UB+23,PEEK(560): 
POKE UB+24,PEEK(561 hSETCOLOR 3,3,0 
30220 SETCOLOR 1,5,0:RETURN 


Allocate memory space for the redefined 
character set, then read the data for the 
redefinitions. 


30300 POKE 106,PEEK(106)-5:RETURN 
30310 UC=256t(PEEK(106)+1):FOR UZ=0 TO 
1023:POKE UC+UZ,PEEK(57344+UZ):NEXT U 
Z 

30320 POKE 756,UC/256:F0R UZ=512 TO 55 
9:READ UV:P0KE UC+UZ,UY:NEXT UZ 
30330 FOR UZ=944 TO 959:READ UY:P0KE U 
C+UZ,UY:NEXT UZ:RETURN 



The Best ofSoftSide 


96 


) ) ) ).),).) ) ) } ) ) ) ) ) >))>), > 



by Gary Cage 

Atari version by Rich Bouchard 


Melody Dice is a musical game pro¬ 
gram for an Atari with 24K RAM. 

This is a computerized adaptation of 
a game in which there are 60 flash 
cards, each containing one measure of 
a song by Scott Joplin. Ten of these 
cards are picked at random by rolling a 
pair of dice five times. The numbers 
rolled are added to the roll number to 
determine the numbers of the cards. 
You then take these ten cards to the 
piano, and play the “composition,” 
which Scott Joplin never wrote, but is 
nonetheless his music. 

I adapted this format to the com¬ 
puter. The program consists of a dice 
routine to choose the “cards” at ran¬ 
dom, a music routine to play them, a 
graphics routine to display the music as 
it is being played, and routines to save 
or recall a created song to or from disk 
or tape. In this case, the cards consist 
of strings of numbers in groups of six. 
The first three numbers represent the 
note to be played, and the second three 
represent the note's duration. 

The program includes a Machine 
Language routine, which draws the 
high-resolution notes and ensures pro¬ 
per note duration. Atari BASIC was 
too slow to perform this function, so 
Sof(Side’s Alan J. Zett worked out this 
special routine. 

Variables 

A(i): Holds cards corresponding to 
die A's throw. This is the only 
variable used in the playback routine. 
AA(i): Holds A cards while B is being 


transferred to A. 

AB: Lines up the five cards for each 
die. 

AN, AN$: Player's response. 

B(i): Holds cards corresponding to 
die B's throw, 

BH, BV: Horizontal and vertical 
locations to print numbers on die B. 
C: Card number (1-60). 

DA: Number thrown on die A. 

DB: Number throw on die B. 

DK: Code that determines to which 
line the error-trap routine ought to 
return. DK = 0 means go back to the 
SAVE routine; DK = 1 means go back 
to the RECALL routine. 

ER: Error code. 

H: Variable for HTABs. 

HC: Horizontal clear variable for 
dice routine. 

I, II: General counter variables. 

KEY: Value of pressed key. 

L: Note length. 

LL: Cumulative length of notes. 
Determines when a measure is full. 
MO: Increments the column in which 
numbers thrown on the dice are 
displayed. 

MS: Measure number. 

N: Note pitch. 

NAS: Program author’s name; used 
for title page. 

NN, NN%: Hold a value to add 
notes to the Y axis when drawing 
notes; this determines where the note 
is drawn. 

S$: Name given to a saved song. 

SW: Switch to keep track of whether 
a FOR loop has been used more than 
once. (0 = no, l=yes). 
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VC: Vertical clear variable for dice 
routine. 

X, Y: x- and y-axis values. 


T: Toss number. 

V: Variable for HTABs. 

VA: Value to be POKEd into 
memory. 


ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

SS Atari BASIC SS 
SS 'Helody Dies’ SS 
SS Author: 6ary Cage SS 
SS Translator: Rich Bouchard SS 
SS Copyright (c! 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 
SS SS SS SS SS SS SS SS SS SS SS 


Main program. This is essentially a 
menu. 

5 CLR iOPEN #2,4,0,"K:“ 

10 SOTO 20 
12 SOUND 0,N,10,10 

14 FOR 11=1 TO L/2:NEXT ZZ:S0UND 0,0,0 
,0:FOR ZZ=1 TO 5:NEXT ZZ:RETURN 

20 GRAPHICS 0 

30 G0SUB 1000 

40 G0SUB 2000 

50 ? :? "Would you like instructions ( 
Y/N) ? 

60 GET #2,AN:AN$=CHR$(AN) 

70 IF AN$="N" THEN 100 
80 IF ANtCY" THEN 60 
90 G0SUB 2500 
100 GRAPHICS 0 

110 POSITION 6,3:? "tit Would you like 
to:" 

120 ? :? ,"1! Play a song in ae»ory?" 
130 ? ,"2) Create a new song?" 
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140 ? ,”3) Play a song Pros aedia’ 

142 ? ,"4! Quit?" 

150 POSITION 14,13:? “Nu*ber-> 

160 GET #2,AN 

170 AN=AN-48:IF AN<1 OR AN>4 THEN 160 

175 IF AN=1 THEN 60SUB 4000:G0T0 100 

180 IF AN=2 THEN AB=1:G0TQ 3000 

190 IF AN=3 THEN GOTO 6000 

200 GRAPHICS 0:PRINT "Okay ... Bye":EN 
D 

Initialize C$(i) and load note routine into 
memory. 

1000 REN 

1090 DIN C$12000),C(61),Z$(120),NN(21> 
,AN$(13),X$(60) 

1092 DIN A110),AA<10),B110) 

1094 READ Z$:FOR T=1 TO LEN(Z$) STEP 2 
:A=ASC(Z$(T,T))-48:IF A>11 THEN A=A-7 

1096 A=Ai16+ASCfZt(T+l,T+l))-48:IF.Z$( 
T+1,T+1)>"3" THEN A=A-7 

1098 Xt(LEN!XI)+1)=CHRt(A):NEXT T 

1100 RESTORE 10000:FQR 1=0 TO 60 

1110 READ Z$:C(I)=LEN(C$)+!:C$(LEN(C$) 
+1)=Z$ 

1120 NEXT I:C161)=LEN(C$)+1 

1140 NN10)=-4:NN(1)=-2:NN(2)=0:NN(3)=0 
:NN(4)=2:NN!5)=4:NN(6)=6:NN(7)=6 

1142 NN18)=8:NN(9)=0:NNU0)=10:NN(11) = 
10:NN(12)=12:NN(13)=12:NN(14i=0 

1150 NN(!5)=14:NN(16)=14:NN(17)=0:NN11 
8)=16:NN(19)=0:NN(20!=18:NN(21)=18 

1160 RETURN 
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Title page. For the music, the routine 
divides C$(0) into groups of six 
characters. The first three characters of 
each group provide the value for N 
(note); the last three, for L (length). 


2000 GRAPHICS 2:POKE 752,I:SETCOLDR 2, 

0,0 

2020 POSITION 6,3:PRINT #6;"HELODY”!PR 
INT #6:PRINT #&;" dice" 

2050 REH 

2060 PRINT " By G. Cage fc R. Boucha 
rd"; 

2070 A=PEEK1560)+PEEK(561)*256:NEN=PEE 
K(A+4)+PEEK(A+5)*256+200 
2080 FOR 11=1 TO C(l)-1 STEP 6:N=VAL(C 
4(11,11+2)):L=VAL(Cl(11+3,11+5)):SOUND 
0,N,10,10 

2090 A=USR(ADR(Xf),HEH,L/8):NEXT IhSQ 
UNO 0,0,0,0 

2100 FOR 1=1 TO 500:NEXT I 
2110 GRAPHICS 0:RETURN 

Instructions. 

2500 G0SUB 2900 

2510 FOR 1=1 TO 500:NEXT I 

2530 ? " Isagine if you Hill, that th 

ere are 60 cards stored sonewhere in A 

tari," 

2532 ? “each containing portions of mi 
sic stolen fros Scott Joplin." 

2540 ? :? " Noh what if you were to j 
uable up those cards in a randoa ord 
er and play": 

2542 ? "thes on an instruaent. Mould 
they sound as good as the originals 
• 

2550 ? i? "Probably not. But thea aga 
in, who knows? At any rate, you wo 
uld have" 

2552 ? "yourself an original coapositi 
on inspired by one of the greats 

in music." 

2560 ? :? "And if you didn't like it, 


you could six up the cards once sore 
and have" 

2562 ? "sosething cospletely different 

B 

t 

2570 REH 

2580 POSITION 6,23s? "< Press RETURN t 
o continue >*; 

2590 G0SUB 2800 
2600 G0SUB 2900 

2610 PRINT " Can't play an instrument 
or read susic? Nell, that's where 
Atari coses"} 

2612 ? "in. You will be shown a pair 
of dice.Press the space bar to stop th 
e® from" 

2620 ? "spinning, and the numbers on y 
our throw will be displayed. This 
is done for a total of 5 tries." 

2630 ? :? H Each number of the die co 
rresponds to a particular card in sea 
ary depen-" 

2632 ? "ding on the time it was thrown 
(1st try, 2nd try, etc.). Atari* 
2640 ? "assembles these together and y 
ou are asked if you want to hear the 
final product, or try again." 

2650 ? :? " If you wish to have it pi 
ayed, the ausic will be accompanied b 
y its* 

2652 ? "ausical notation (of sorts)." 
2660 B0SUB 2800 
2670 G0SUB 2900 

2680 ? "After listening to your compos 
ition, you will be asked if you wish 
to save" 

2682 ? "it on disk, try again, or quit 
altogether." 

2690 ? :? "That's all there is to it." 

2700 S0SUB 2800 

2710 RETURN 

2800 GET 12,AN 

2810 IF AN0155 THEN 2800 

2820 RETURN 

2900 GRAPHICS 0:? ■ I INSTRUCT 

IONS t"j? i? sRETURN 
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Dice routine. This displays the dice, and 
allows you to stop their spinning. 

3000 GRAPHICS OtPOKE 752,1 
3010 FOR H=7 TO 15:P0SITI0N H,0s? CHR$ 
(160); POSITION H+11,7:? CHRt(160);:NE 
XT H 

3020 FOR V=0 TO 8:P0SITI0N 15,0!? CHR* 
(160);:POSITION 26,7+V:? CHR*(160);:NE 
XT V 

3030 FOR H=15 TO 7 STEP -1:P0SITI0N H, 
8:? CHR*(160);:P0SITIQN 11+H,15:? CHR* 
(160);:NEXT H 

3040 FOR V=B TO 0 STEP -IsPOSITION 7,V 
:? CHR*(160);:POSITION 18,7+V:? CHR*<1 
60);:NEXT V 

3050 V=10;H=9:POSITION H,V:? CHR$!160) 

5:POSITION H+4,V:? CHR*(160)jsPOSITION 
H+l1,V+7:? CHR*(160); 

3060 POSITION H+15,V+7:? CHR*(160>; 
3070 GOSUB 3360 
3080 GOSUB 3430 

3090 T=0:DA=INT(RND(0)*6)+1:DB=IHT(RND 

(0)*6)+l:HQ=0 

3100 GOSUB 3470 

3110 GOSUB 3500 

3120 H=8:V=3 

3130 BH=0:BV=0:0N DA GOSUB 3190,3210,3 

230.3250.3270.3290 

3140 BH=11;BV=7:0N DB GOSUB 3190,3210, 

3230.3250.3270.3290 
3150 REH 

3160 GOSUB 3600 

3170 IF T>=5 THEN FOR 1=1 TO SOOiNEXT 
I:GOTO 3800 
3180 GOTO 3100 

3190 POSITION H+3+BH,V+l+BV:? *5"; 

3200 RETURN 

3210 POSITION H+BH+1,V+BV-1:? "8";:P0S 
ITION H+5+BH,V+3+BV:? *8°; 

3220 RETURN 

3230 FOR 1=0 TO 4 STEP 2:POSITION H+I+ 

BH+1,V+I+BV-1;? “8";:NEXT I 

3240 RETURN 

3250 GOSUB 3310 

3260 RETURN 


3270 GOSUB 3310:POSITION H+3+BH,V+l+BV 
■ ? “ 8 "; 

3280 RETURN 

3290 GOSUB 3310:POSITION H+BH+1,V+BV+1 
i? "8";-.POSITION H+5+BH,V+BV+1:? "a"; 
3300 RETURN 

3310 POSITION H+BH+1,V+BV-1:? "8";:P0S 
ITION H+5+BH,V+BV-1:? "8”;POSITION H+ 
5+BH,V+3+BV:? "8"; 

3320 POSITION H+BH+1,V+3+BV:? "8";:RET 
URN 

3330 FOR VC=2 TO 6 STEP 2:POSITION 9,V 
C:? ’ POSITION 9+BH,VC+BV:? " 

3340 NEXT VC 
3350 RETURN 
3360 REN 

3370 POSITION 23,0:? DICE * “ 

3380 POSITION 17,1:? "You are given fi 
ve M ;:POSITION 17,2:? "tries at the die 

= ■ ! 

3390 POSITION 17,4:? "Press Space Bar 
to"j:POSITION 17,5:? "stop thea spinni 
ng"; 

3400 POSITION 28,15:? "> Try # <" 

3410 REH 
3420 RETURN 
3430 REN 

3440 POSITION 2,20:? “DIE A:“ 

3450 POSITION 2,22:? “DIE B:“ 

3460 RETURN 
3470 T=T+i 

3480 POSITION 36,15:? T; 

3490 RETURN 

3500 V=10:H=11:POSITION H,V:PRINT DA:P 
OSITION H+11,V+7:PRINT DB 
3510 GOSUB 3530 
3520 RETURN 

3530 KEY=PEEK(764):IF KEY=33 THEN 3560 
3540 DA=INT(RND(1)*6)+1:DB=INT(RND(1 )t 
6 ) +1 

3550 POP -.GOTO 3500 
3560 GOSUB 3330 

3570 POKE 764,255:POSITION H0+9,20:? D 
APPOSITION HQ+9,22:? DB; 
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35B0 HQ=H0+3 
3590 RETURN 

3600 C=DA*T+<6-DA)*(T-l) 

3610 A1AB)=C 

3620 C= (DBIT+(6-DB) I<T-1))+30 
3630 B(AB)=C 
3640 AA(AB)=At'AB) 

3650 AB=AB+1 
3660 RETURN 

3800 GRAPHICS 0:P0SITI0M 6,5:? "--> Do 
you Hish to play this"sPOSITION 10,6: 
? "song or try again?" 

3B10 POSITION 18,8:? "Type Play or":P0 
SITION 23,9:? "Again." 

3820 POSITION 25,10:? 

3830 GET #2,AN:ANt=CHRt(AN) 

3840 IF AN$="A" THEN AB=1:GQTQ 3000 

3850 IF AN*<>"P“ THEN 3830 

3860 GOSUB 4000 

3870 FOR 1=1 TO 1000:NEXT I 

3880 GRAPHICS 0:? "Play the sane song 

again ? 

3890 GET #2,AN 

3900 AN$=CHRf(AN):IF AN$="N" THEN 5000 
3910 IF ANtO“Y" THEN 3890 
3920 GOTO 3860 


Music routine. This begins with a 
GOSUB to the routine that draws the 
musical staff. The routine at line 4900 
calculates where to draw the notes. The 
note length is continually added to LL, 
and when this variable’s value reaches 
or exceeds 255 (four counts), a measure 
bar Is drawn. 


4000 GRAPHICS 0:G0SUB 4500:SB=0 

4010 FOR 1=1 TO 4 

4020 GOSUB 4300 

4030 NEXT I 

4040 FOR 1=1 TO 3 

4050 GOSUB 4300 

4060 NEXT I 

4070 1=5 

4080 GOSUB 4300 


4090 IF SH=1 THEN 4120 

4100 SH=1:F0R 1=1 TO 5:A(I)=B<I):NEXT 

I 

4110 GOTO 4010 
4120 FOR 1=1 TO 5 
4130 A(I)=AA(I) 

4140 NEXT I 
4150 FOR 1=1 TO 3 
4160 GOSUB 4300 
4170 NEXT 1:1=5 
4180 GOSUB 4300 
4190 RETURN 

4300 FOR II=C(A(D) TO C(A(I)+1)-1 STE 
P 6 

4310 N=VAL(Ct(II,II+2)) 

4320 L=VAL(Cf(II+3,II+5)) 

4330 IF N>1 THEN SOUND 0,N,10,10 
4340 GOSUB 4900 
4350 NEXT II 
4360 RETURN 

4500 GRAPHICS 24:C0LQR 1:A=PEEK(560)+P 
EEK(561)1256:HEH=PEEK(A+4)+PEEK(A+5)*2 
56 

4520 Y=10:X=1Q 

4530 FOR Y=10 TO 170 STEP 39:FQR 1=0 T 
0 20 STEP 5 

4540 PLOT X,Y+I:DRAWTD X+289,Y+I 
4550 NEXT I:NEXT Y 
4630 X=16:Y=6 

4640 FOR 1=0 TO 170 STEP 39 

4650 PLOT X,Y+I:DRAWT0 X,Y+I+2B 

4660 REN mtt 

4670 NEXT I 

4690 LL=0:NS=1:X=27 

4700 RETURN 

4900 IF N=1 THEN A=USR(ADR(Xf),HEN,L/l 
0-2):GOTO 4930 

4902 NN=INT(NN(N/5.7-10)II.25+0.5):A=U 
SR(ADR(XU,NEH+(Y+NN+2)I40+INT!X/B),L/ 
10 - 2 ) 

4920 IF N=57 THEN PLOT X-4,Y+NN+4:DRAM 
TO X+5,Y+NN+4 

4930 SOUND 0,0,0,0:X=X+8:LL=L+LL 
4950 IF LL>=255 THEN LL=0:PL0T X,Y+4:D 
RAWT0 X,Y+24:X=X+8:NS=NS+1 
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4960 IF MS >4 THEN HS=l:X=27:Y=Y+39 
4970 RETURN 


Save music to disk or tape. 


5000 GRAPHICS 0 

5010 POSITION 8,2:? “Would you like to 
save this song (Y/N) ?"j 
5020 GET #2,AN:AN$=CHRf <AN) 

5030 IF AN$="N” THEN 100 
5040 IF AN$<>“Y“ THEN 5020 
5050 POSITION 8,7:? “On tape or disk ( 
T/D) ?“; 

5060 GET #2,AN:AN$=CHRt(AN) 

5070 IF AN$=“T" THEN 5260 
5080 IF ANIO"D" THEN 5060 
5090 REN 
5100 DK=0 

5110 POSITION 14,14:? CHR*(253);"Nase 

5120 INPUT AN$:ZI<1,2)="D:":Z$!3)=AN$ 
5130 REM 
5140 REM 

5150 OPEN *1,8,0,Z$ 

5190 FOR 1=1 TO 5 
5200 PRINT «l;AiI) 

5210 PRINT #ljB(I) 

5220 PRINT #1;AA(I) 

5230 NEXT I 
5240 CLOSE #1 
5250 GOTO 100 

5260 GRAPHICS 0:? " I Store to ta 
pe *" 

5270 POSITION 2,4:7 “1. Make sure your 
tape is ready to record." 

5280 ? :? “2. Start recording and then 
push ’Return’. Atari Hill retur 
n you to the prograa Hhen finished" 
5290 ? :? ”3. If you get an error aess 
age, set uptape again and type ’GOTO 5 
260’" 

5300 OPEN #1,8,0,"C:" 

5310 GOTO 5190 
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Recall from tape or disk. 


6000 GRAPHICS 0 

6010 POSITION 14,7:? "Fros tape or dis 
k (T/D) ?"; 

6020 GET #2,AN:ANt=CHRHAN) 

6030 IF AN$="T" THEN 6210 
6040 IF ANtO"D" THEN 6020 
6050 REM 
6060 DK=1 

6070 POSITION 14,14:? CHRt(253>i"Naae 
->»; 

6080 INPUT AN*:Z$(1,2)="D:":Z$(3)=AN$ 

6090 REM 
6100 REM 

6110 OPEN #1,4,0,Z* 

6130 FOR 1=1 TO 5 
6140 INPUT #1,Z:A(I)=Z 
6150 INPUT *1,Z:B(1)=Z 
6160 INPUT #1,Z:AA(I> =Z 
6170 NEXT I 
6180 CLOSE II 

6190 GRAPHICS 0:G0SUB 4000 
6200 GRAPHICS 0:G0TQ 100 
6210 GRAPHICS 0:? " t Recall froa 
tape V 

6220 POSITION 2,4:? ”1. Hake sure your 
tape is set up and ready at your stus 
ic prograa." 

6230 ? :? "2. Start recorder on play a 
nd then push ’Return’." 

6240 ? :? "3. If all goes Hell, Atari 
Hill returnto the prograa." 

6250 ? :? "4. If you get an error aess 
age, re-runprogram and try again." 

6260 OPEN #1,4,0,"C:" 

6270 GOTO 6130 

Data for note-drawing routine. 

8000 DATA 686885CC6885CB1BA000A97E91CB 
986928A8A97E91CB986928A8A97E91CB9B6928 
A8A97E91CB6B68A8A514C514F 0FC88D0F760 
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Data for music “cards.” 


10000 DATA 144064094064144064114064096 
128153064096044153064128064096255 
10010 DATA 068032064064068032064064068 
032064032,0640320640640680320640320640 
32057032064032 

10020 DATA 074032081032076032064064096 

032076032064032,0640320640640730320760 

32081032076032064032 

10030 DATA 064064068032064064068032064 

064,0640320570320640320760320720320860 

64076032 

10040 DATA 064032076032064032057064064 
064096032,076064086032096096086064 
10050 DATA 096032086032076032128064076 
032086032096032,0761601230320960320760 
32 

10060 DATA 076064086032096064064032076 
032096032,0760640640320760640810320760 
64 

10070 DATA 086064064032086064064032086 
064,0010320860320570320720320640320570 
32064032072032 

10080 DATA 072032072064076032072032072 

032076032086032,0720320570640640320720 

32076032072032064032 

10090 DATA 072064072032072064072032086 

064,064096068032064032057032064064 

10100 DATA 064160076032072032068032,06 

40641020320960320860320760320720320640 

32 

10110 DATA 064255,064255 
10120 DATA 064096068032064128,06406406 
4032064032064064064064 
10130 DATA 096128096064001064,07606408 
6064096128 

10140 DATA 096064001064096064001064,09 

6064001064096064001064 

10150 DATA 096064001064128032114032102 

032096040001064,096064128064096128 

10160 DATA 102064102032128064102032128 

064,1020321710321380321140641280321140 

«r 

64 


10170 DATA 102032108032102032128064128 
032108032102032,0010321280320760320860 
65076032086064 

10180 DATA 001032128032076032102032086 
032076032086032102032,1020321020641140 
32128032136032128032102032 
10190 DATA 128032102032086032064032064 
064086064,103032171032128032102160 
10200 DATA 128032102064096032086064064 
032086032,0760320860640760320860320760 
32086064 

10210 DATA 128032102032076032086096086 
064,0860320860640960321020321080321020 
32086032 

10220 DATA 096032068064096064068032096 
064,096064114064076032086064096032 
10230 DATA 096064086032096064102032096 
064,0960641140320960641140320960321140 
32 

10240 DATA 001032086032068032086032076 

032068032076032086032,0960321140321020 

32096064076032086064 

10250 DATA 114032114064121032114064108 

064,0960320960640760320860320960320860' 

64 

10260 DATA 096032096064102032096032096 
032102032114032,1210321140641020320760 
64096064 

10270 DATA 096128086032086064096032,08 
6128086064096064 

10280 DATA 102064001064128064001064,10 

2160086032076032086032 

10290 DATA 102064064032064032064064064 

064,102064001064128064001064 

10300 DATA 102192064064,10206410206408 

6064064064 
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Music 

Programmer 

by John Rush Elkins 


Music Programmer is a music editing 
program for a 24K Atari (32K with 
disk). 

The use of this program will be ex¬ 
plained while progressing through an 
example. The musical scale “DO, RE, 
MI” is shown being entered as a 
demonstration program, with eighth 
notes, in four voices. The last note in 
the measure is shown being entered in¬ 
to the Enter Music routine. 

MUSIC PROGRAMMER 

NOTES AND RESTS ARE ENTERED AND 
EDITED MEASURE BY MEASURE IN 1 TO 
4 VOICES USING A ROUTINE CALLING 
FOR NOTE, DURATION, OCTAVE, AND 
LOUDNESS. MEASURE LENGTH IS 
DETERMINED FROM THE TIME 
SIGN A TURE. TIED NOTES, DOTTED 
NOTES, AND TRIPLETS ARE ENTERED 
WITH SUBSCRIPTS. TIED MEASURES 
ARE COMBINED INTO ONE LARGE 
MEASURE. SHARPS AND FLATS ARE 
ENTERED WITH THEIR NOTES SINCE 
THERE ARE NO KEY SIGNA TURES. 

EA CH MEASURE MA Y BE PL A YED FOR 
EDITING BEFORE SA VING. 


EACH MEASURE IS THEN SAVED BY 
TRANSFERRING TO DATA STATEMENTS 
WHICH MUST BE ENTERED INTO THE 
PROGRAM. 

PRESS RETURN TO CONTINUE. 

Music which can be enjoyed on its 
own or entered into other BASIC 
programs. No more than minimal 
musical and programming skills are 
required. However, the ability to 
manipulate the editing features of the 
Atari is required to enter the computer¬ 
generated DATA statements. 

The Music Programmer utilizes 


> ) ) ) ) ) ) ) ) ) ) 


musical measures as its “bookkeeper” 
to insure that the notes start and stop 
at the proper place. If a note needs to 
be continued into the next measure, the 
two measures are tied ( ( ^ Nk ) by the 
note into a double measure which is 
entered as one large measure. 

WHA T IS THE MAXIMUM NUMBER OF 
NOTES — UP TO 16 — YOU WILL NEED 
TO ENTER INTO ANY SINGLE VOICE IN 
ANY MEASURE? MEASURES TIED 
TOGETHER WITH CONTINUING NOTES 
ARE TREATED AS ONE LARGE 
MEASURE. 

?12 

This value (VO in line 818) is required 
to DIMension the arrays to hold the 
notes. The maximum number of notes 
to be entered can be increased (lines 
818, 819, 814); but the smaller the 
value, the more memory is made 
available for saving the notes in DATA 
statements. 

HOW MANY VOICES (1 TO 4) WILL 
YOU NEED 

?4 

The number of voices needed is 
determined by the number of notes 
that must be played at any one time. 
Use of only one voice, playing the 
melody (top) line of notes, will require 
less memory and can be entered faster, 
but will not give the fullness of sound 
of which the Atari is capable. Musical 
notation often does not show rests for 
all voices, so be sure to take care to fill 
out blank spaces in the music with 
rests. It may also be necessary to add 
rests at the beginning of the first 
measure and at the end of the last 
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measure. The computer requires that a 
measure of music be entered in each 
voice selected. 

TIME SIGNA TURE? 

WHICH? 1 FOR 4/4 

*\ Z7/1 n o / j n £/o 
Z J/-J L/X\ U/O 

3 FOR 2/4 

4 FOR 2/2 

?1 

The time signature gives the measure 
length with the 4/4 (or C) and 2/2 (or 
j£) times being equivalent in length to a 
whole note (four counts). The 2/2 
time, as used in the Music Program¬ 
mer , plays twice as fast as the 4/4 time. 
The 3/4 and 6/8 times are equivalent in 
length to three-fourths of a whole note 
(three counts) and the 2/4 time to a 
half note (two counts). 

TEMPO? FAST TO SLOW 
WHICH? 8 9 1011 12 

WITH 9 OR 11: NO DOTTED 16th NOTES 
AND NO 16th OR DOTTED 8th NOTES 
WITH 2/2 TIME. 

WITH 10 OR 12: NO 16th NOTES WITH 2/2 
TIME. 

WITH 9 OR 12: TRIPLETS ARE ENTERED 
NORMALLY WITH TEMPOS 9 AND 12 
AND AS TWO DOTTED AND ONE 
NORMAL NOTE OF THE NEXT FASTER 
SPEED WITH OTHER TEMPOS. NO 
TRIPLET 16th NOTES WITH 9. 

?10 

The tempo is precisely controlled by 
the computer with the values (8-12) 
representing the duration of a sixteenth 
note in 60ths of a second. Notes with 
durations of less than 8/60ths of a sec¬ 
ond are not possible because of the 
time required to change notes. The 
menu indicates which durations are ex¬ 
cluded, either for being too fast or for 
giving fractional values with dotted 
and triplet notes. Care should be taken 
in selecting a tempo which will fit the 
music at hand. For music with triplets, 
you should try to use tempos 9 or 12. 
For example, triplet eighth notes 
( J3S ) with a total duration of a 
quarter note can be entered normally 
as three E3 notes in tempos 9 and 12, 
but must be entered as two dotted six¬ 


teenth notes (S.) and one sixteenth note 
(S) with other tempos. 

WHA T IS THE TITLE OF YOUR SONG? 

CENTER IN 11th SPACE 
WITH FIRST LINE HERE 
AND SECOND LINE NEXT. 

USE UPPER AND lower 
CASE & INVERSE video 
? DO, RE 

CONTINUE TITLE HERE. 

? mi 



Figure 1 

The range of music played by the 
Atari. 


There are two lines provided for the 
title of your song. Your title may go on 
either or both of them. Each line 
should be centered on the eleventh 
space. Inverse video and lower-case let¬ 
ters are displayed as upper-case letters 
with different colors. Be sure to change 
back to normal upper-case letters. 

ENTER TOTAL NUMBER OF COMBINED 
MEASURES. 

HOW MANY? 1 FOR NO COMBINED 
MEASURES. 

2, 3, 4 COMBINED 
MEASURES. 

LIMIT 12 NOTES PER VOICE. 

1 

More measures can be combined by 
increasing VO in lines 819 and 814 so 
that more notes can be entered, and in¬ 
creasing CM in lines 997 and 998; but 
such an increase would require more 
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memory to reserve array space, and it 
would be more difficult to edit the 
measure in case of an entry error. 

The following entries can be made 
for the DO,RE, mi demonstration pro¬ 
gram with eighth notes in four voices: 

VOICE 0: C t E,SM,R,Q.,G,E,4,MF,R t Q. 
VOICE 1: R,E,D,E } 4,ME,R,Q.,A,E,4,MF,R, Q 
VOICE 2: SM, E, E, 4 y MF, R, Q., B, E, 4, MF, R, E 
VOICES; R,Q.,F,E,4,MF,R,Q.,QE,5,MF 

The last note entered in the measure is 
shown being entered into the Enter 
Music routine. 


ENTER MUSIC 
THIS IS MEASURE 1 

NUMBER OF AVERAGE MEASURES LEFT 
= 59 

VOICE 3: ENTRY 4 
NOTE? 

WHICH? AF,A,AS 

BF,B 

C,CS 

DF,D,DS 

EF,E,ES 

F,FS 

GF, G, GS 

R FOR REST 

ENTER SM FOR SAME NOTE 
-R,Q.,OCTR, OFF 
?C 

The desired notes (A-G) and rests 
(R), with sharps (S) and flats (F), are 
entered here. The octave on the 
musical staff is entered from the menu 
after the next. The range of the Atari is 
over three full octaves, with one note in 
a fourth octave, as illustrated in Figure 
1. Since the base range is not very low, 
it is often necessary to enter notes in a 
higher octave than that in which they 
are written. 

Notice the prompts with the measure 
number, voice number and entry 
number which will help you keep track 
of where you are. The voice will change 
automatically when the measure is 
completed in that voice, as indicated by 


a bell. You should also pay attention to 
the bottom prompt, for there are many 
times when you can enter SM for the 
same note, especially the same octave 
and loudness. 


VOICE 3: ENTR Y 4, NOTE C 


Total Duration In 

Measure 

And Program 

VOICE 0 = 

160 

160 

VOICE 1 = 

160 

160 

VOICE 2 = 

160 

160 

VOICE 3 = 

140 

140 


DURATION OF NOTE OR REST? 
WHICH? SIXTEENTH 
EIGHTH 
QUARTER 
HALF 
WHOLE 

ADD . FOR DOTTED NOTES 
ADD 3 FOR TRIPLET NOTES 
ADD T FOR TIED NOTES 

ENTER ED TO EDIT NOTE C 
ENTER SM FOR SAME NOTE 
-C, Q., OCTR, OFF 
?E 


The notations for the allowed dura¬ 
tions of notes are S (), E (}), Q (J), 
H(J), W(o), and of rests are S ( f ), 
E ( , ), Q ( /), H (-), W (~). Dotted 
notes such as “E.” are 3/2 as long as a 
normal note and triplets such as E3 are 
2/3 as long as a normal note. Triplets 
can only be entered with tempos 9 and 
12; otherwise enter the triplet notes as 
two dotted and one normal note of the 
next faster duration. The duration of 
tied notes such as QT is followed up by 
the duration of the note to which it is 
tied, for example, “E.”. No T should 
be added to the last of the tied notes. 
Tied notes are combined into one note 
with a total duration equal to the sum 
of the tied notes. Note that you cannot 
use SM to enter the note or duration 
after entering a tied note. The duration 
of the note entered with SM will be the 
duration of the tied note and not that 
of the note in the SM display, which 
shows only the last duration added to 
the tied note. You should also pay at¬ 
tention to the ED prompt which allows 
you to edit the note. 
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VOICE 3: ENTR Y 4, NOTE C, DURA TION E 

OCTA VE? 4 GOES UP FROM MIDDLE C 

WHICH? 3, 4, 5, 6 

ENTER ED TO EDIT DURA TION E 
ENTER SM FOR SAME NOTE 
-C,E, OCTR, OFF 

?SM FOR SAME NOTE -C,E, OCTR, OFF 
?5 

The octave menu was discussed 
along with the note menu. 

VOICE 3: ENTRY 4, NOTE C, DURATION 
E ; OCTA VE 5 

LOUDNESS? 

WHICH? PP,P,MP 
MF,F,FF 
OFF 

NORMAL VALUES: 

MFFOR MELODY 
P FOR ACCOMPANIMENT 

ENTER ED TO EDIT OCTA VE 5 
?MF 

There is much room for experimen¬ 
tation with loudness, but a value of MF 
for the melody (top) line of notes and P 
for the accompanying notes is a good 
starting place. The assigned values of 
loudness are PP = 2, P = 4, MP = 6, 
MF = 8, F = 10, FF = 12, and OFF = 0. 
These can be adjusted from 1-15 in 
lines 1184 and 1188. Loudness can also 
be controlled with the Play Music 
routine (lines 30, 91) as explained 
below. Loudness can only be EDited 
by editing the entire measure. 

If it should happen that you enter a 
wrong note and cannot get out of that 
voice, it is possible to BREAK and 
GOTO 5001 to reenter the entire 
measure in that voice. 

MEASURE FULL 
PLAY MEASURE OR 
EDIT MEASURE OR 
SAVE MEASURE 
WHICH? 

ENTER 1 TO PL A Y 

2 TO EDIT 

3 TO SA VE 

The PLAY option lets you listen to 
the measure of music to check how it 
sounds before editing or saving it. 


EDIT MEASURE OF MUSIC 

VOICE? 

WHICH? 0,1,2,3 
?0 

EDIT VOICE 0 

SA VE MUSIC 

MOVE CURSOR TO LINE NUMBER (LN) 
AND PRESS RETURN TO ENTER INTO 
PROGRAM. THEN TYPE CONT AND 
PRESS RETURN TO CONTINUE. 

LN 

40 ?$6: ?#6; “DO, RE”:?#6: ?tt6;”mi " 

STOPPED AT LINE 6514 

CONT 

The first time through the Save 
Music routine, the title can be entered 
into the program for the Play Music 
routine; and if there are fewer than 
four voices, certain 4 ‘blank ’ 9 lines are 
entered to remove lines not needed in 
the Play Music routine. Failure to enter 
the 4 ‘blank’’ lines will result in incor¬ 
rect play. If you make a mistake in 
manipulating the edit keys and fail to 
enter a line number correctly, you can 
return from the Play Music menu to re¬ 
enter the line numbers. 

LN 

101 DATA 121,8,20,0,0,20,0,0,40, 

0,0,60,0,0,60,108,8,20,0,0,60,96,8,20 

102 DATA 0,0,60,91,8,20,81,8,20, 

0,0,60,0,0,60,72,8,20,0,0,40,64,8,20 

103 DATA 0,0,20,60,8,20 

104 DATA 256,0,0 

ENTER LINE NUMBERS AND CONTINUE 
STOPPED A T LINE 7580 

The notes have been placed in order 
of play in DATA statements which 
must be entered into the program for 
the Play Music routine. Each note 
READ by the Play Music routine re¬ 
quires three values: note, loudness and 
duration. Line 104 includes only the 
“256 flag” in Voice 0 which signals the 
END of play. Line 104 will be replaced 
by new DATA when saving the next 
measure and a new “256 flag” will 
END the play of both measures, etc. It 
may be helpful to keep a record of 
which line numbers correspond to 
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which measures, so that you can 
manually make changes in the DATA 
statements if the music doesn’t sound 
right. 


pla r MUSIC 
PLAY MUSIC OR 

RETURN FOR NEW MEASURE OR 
SA VE ON DISKETTE (CASSETTE) OR 
RE-ENTER LINE NUMBERS 
WHICH? 

ENTER 1 TO PLA Y 

2 TO RETURN 

3 TO SA VE 

4 TO RE-ENTER 
?3 


The Play Music menu allows you to 
play all the measures entered, return to 
enter a new measure, or re-enter line 
numbers. (The menu for the cassette 
version is included in parentheses and 
can be entered into the Music Pro¬ 
grammer by replacing lines 31, 8450, 
8452, 8453, 8454 and 8469 with the 
statements in lines 9031, 9450, 9452, 
9453, 9454 and 9469.) 

The music can be SAVEd to disk (or 
cassette) when completed or when all 
the memory is used up. The music, 
once saved, can be compiled with other 
music (if more than one SAVE is 
needed) by entering one and then the 
other, or can be entered into another 
BASIC program. Be careful not to 
have line numbers between 39 and 101 
end up in the BASIC program since 
they will be wiped out upon entering 
the music program. Since the DATA 
statements are READ faster when they 
are closer to the beginning of the pro¬ 
gram, it may be advantageous to 
GOTO 500 at the program’s start and 
then GOSUB 39 to PLAY MUSIC. 


SA VE ON DISKETTE (CASSETTE) 

SAVE PLAY PROGRAM AND DATA WITH 
THE INITIAL GROUP OF MEASURES BUT 
ONL Y DA TA IN SUBSEQUENT SA VES . 


INSERT BLANK DISKETTE! (Omitted in 
cassette version) 

ENTER LINE NUMBER AND CONTINUE 
LN 

8460 LIST ft D:SONGL 

ENT”,39, 104(8460LIST ti C”, 39,104) 

STOPPED A T LINE 8453 

PROGRAM BEING SA VED 

(ON BELL, SET RECORDER TO RECORD 

AND PRESS RETURN) 

ENTER LINE NUMBER TO CLEAR 
MEMOR Y FOR NEXT GROUP OF 
MEASURES. 

LN 

101 

102 

103 

104 

ENTER LINE NUMBERS AND CONTINUE 
STOPPED A T LINE NUMBER 8465 


For an additional SAVE, GOTO 
8450 before entering the “blank” lines 
to free memory for a new group of 
measures. 


LOAD OR ADD THIS MUSIC PROGRAM 
AND ADDITIONAL DATA TO ANOTHER 
PROGRAM WITH ENTER “D:SONG 
ENT” 

(ENTER "C”) 


On the second save of the Play pro¬ 
gram and DATA with the initial group 
of measures, change 101 to 39 when 
entering line 8460 with SONG2.ENT. 

The Play Music routine (lines 30-91) 
and the Play/Edit Music routine (lines 
700-765, with subroutines at lines 
12-20) depend on the ability of the 
Atari to time itself to l/60th of a sec¬ 
ond. The music is timed by POKEing 
19 and 20 with 0 (lines 45 and 712), and 
PEEKing at the timer (PEEK 19*256 
+ PEEK 20 at lines 55 and 722) each 
time through the play cycle. All voices 
are sounded simultaneously (lines 50 
and 720) each time through the play cy¬ 
cle, and are turned off with a percepti¬ 
ble pause (lines 81-84 and 751-754) 
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each time there is a note change (lines 
55-80 and 722-750). The notes are 
changed, voice by voice, whenever the 
time equals or exceeds the time when 
the previous note should stop playing. 

Each voice may be played separate¬ 
ly. For example, to listen to Voice 0 
(the melody), LIST 50,80 and insert 
L1=0, L2 = 0 and L3 = 0 after the 
READ statements in lines 60, 70 and 
80. Changes in loudness to values other 
than 0 can also be made. 

Though very conservative para¬ 
meters for the duration of the fastest 
note have been used in the Music Pro¬ 
grammer, it is conceivable that with 
some songs there may be an occasional 
mis-ordering of notes because of the 
extra time required to go through each 
cycle of the note-ordering routine. If 
this happens, the “256 flag” probably 
will not be READ by Voice 0 and the 
program will “squawk” instead of 
ENDing. It can be corrected by hitting 
the BREAK key, entering END, GOing 
TO 30, and manually reordering the 
DATA, using the values for the notes 
given in the Atari BASIC Reference 
Manual. 


VARIABLES 

A$: Answer name. 

B$: Bell character. 

C: Column in array. 

C$: Clear screen character. 
CK0-CK3: Checks voices 0-3. 0 = on, 
1 = off. 

CM: Consecutive measures. 

D: Duration number. 

D0-D3: Duration of note in voices 
0-3. 

DL: Duration length. 

DM: Duration of measure. 

DT: Duration of tied note. 

D$: Musical name of duration. 
D(0,0)-D(3,0): Total duration of 
voices 0-3 in current measure. 
D(0,l)-D(3,l): Total duration of 
voices 0-3. 


ENT: Entry number. 

H0-H3: Hold a note in voices 0-3. 

0 = hold, 1 — no hold. 

L: Loudness number. 

L0-L3: Loudness of voices 0-3. 

LN: Line number. 

LN1: Line number at start of DATA. 
LNF: Line number at end of DATA. 
LNS: Line number at which “saving” 
should start. 

L$: Musical name of loudness. 

ML: Amount of memory left. 

MN: Measure number. 

MNT: Measure number total. 

MV: Measure value. 

MVA: Measure value average. 
Computed in line 1000. 

MVT: Measure value total. 

N: Note number. 

NLV: Note limit value. 

NM: Number of measures. 

NV: Number of voices. 

NS: Number of notes saved. 

N0-N3: Notes being played by voices 
0-3. 

N$: Musical name of note. 

N(N,0): Note value. 

N0(V0,0)-N0(V3,0): Order in measure 
of notes V0-V3 in voices 0-3. 
N0(V0,1)-N0(V3,1): Value of note in 
voices 0-3. 

N0(V0,2)-N0(V3,2): Loudness of note 
in voices 0-3. 

NO(VO,3)-NO(V3,3): Duration of note 
in voices 0-3. 

O: Octave number. 

ORD: Order of note in measure. 

0$: Musical name for octave. 

PES: Play, Edit, Save. 

PRS: Play, Return, Save. 

P0-P3: Turn off play in voices 0-3. 

0 = on, 1 = off. 

R: Row in array. 

RELN: Re-enter line number. 

R0-R3: Row in voices 0-3. 

SN: Song number. 

ST: Stop from re-entering title. 

0= OK to enter, 1 = not OK. 

SV: Save in DATA statements. 

0- off, 1 = on. 

T0-T3: Time to stop note in voices 
0-3. 
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TM: Time of play. 

TS: Time signature. 

TITLES: Title of song. 

V: Voice number. 

V0-V3: Number of note in voices 0-3. 
V0E-V3E: Highest number of note in 


S3 S3 S3 SS S3 S3 S3 SS S3 S3 S3 


SS 


SS 

SS 

Atari BASIC 

SS 

SS 

'Husic Prograffi/ser 7 

SS 

SS 

Author; John Rush Elkins 

SS 

SS 

Copyright (c) 1982 

SS 


SS SoftSide Publications, Inc 3S 
SS S3 
S3 S3 S3 S3 S3 SS S3 S3 S3 SS SS 


10 SOTO 800 

12 N0=N0(V0,1):IF N0=256 THEN N01VO,0! 
=0RD:POP iGOTO 760 

14 L0=N0(VO,2):D0=N0(VO,3):TQ=TQ+D0:NO 
(V0,0>=0RD:0RD=0RD+1:RETURN 
16 N1=N1(V1,1!:L1=N1(VI,2):D1=N1(VI,3) 
:T1=T1+D1:N1(V1,0! =QRD: QRD=0RD+1:RETUR 
N 

18 N2=N2(V2,1):L2=N2(V2,2):B2=N2!V2,31 
:T2=T2+D2:N2(V2,0!=QRD:0RD=0RD+1:RETUR 
N 

20 N3=N3(V3,1):L3=N3(V3,2):D3=N3(V3,3) 

:T3=T3+D3:N3(V3,0!=0RD:QRD=QRD+1:RETUR 
N 

30 ? H MPLAY MUSICS*":? 

:? "PLAY MUSIC OR":? :? "RETURN FOR NE 
W MEASURE OR" 

31 TRAP 30:? :? "SAVE ON DISKETTE OR": 
? :? “RE-ENTER LINE NUMBERS":? :? “NHI 
CH?":? :? "ENTER 1 TO PLAY" 

32?" 2 TO RETURN":? ” 3 TO 

SAVE":?" * 4*T0 RE-ENTER": INPUT P 

m #> m 

RS 

33 IF PRS=1 THEN 39 

34 IF PRS=2 AND NM<=0 THEN ? CHR$(253i 
:? " NO MORE MEASURES! 11 :FOR W=1 TO NT: 
NEXT W:SOTO 30 

35 IF PRS=2 THEN 990 

36 IF PRS=3 THEN 8450 


1 ) ) ) ) ) ) ) ) ) ) 


voices 0-3. 

VN: Value of notes. 

V$: Name of voice. 

WT: Wait for message. Change this 
value in line 800 to change length of 
wait. 


37 IF PRS=4 THEN ST=0:LN1=RELN;S0T0 65 
00 

38 ? CHR$(2531:GOTO 30 

39 RESTORE 101:GRAPHICS 2+16:? #6:PRIN 
T #6;“ PLay siuSIc" 

42 L0=0:NO=oTL1=o7n1=0:L2=0:N2=0:L3=0: 
N3=0:P0=0:P1=0:P2=0: P3=0 
45 TM=0:T0=0:T1=0:T2=0:T3=0:POKE 19,0: 
POKE 20,0 

50 SOUND 0,NO,10,L0:SOUND 1,N1,10,L1:S 
0UND 2,N2,10,12:SOUND 3,N3,10,L3 
55 TH=PEEK(195 J256+PEEK(20):IF TM>=T0 
THEN TM=T0:P0=1:READ NO,LO,DO:TO=TO+DG 
:IF N0=256 THEN 90 

60 IF TM)=T1 THEN TM=T1:Pl=l:READ N1,L 

1, Dl;T1=T1+D1 

70 IF TH>=T2 THEN TH=T2:P2=1:READ N2,L 

2, D2:T2=T2+D2 

80 IF TM)=T3 THEN TM=T3sP3=l:READ N3,L 

3, D3:T3=T3+D3 

81 IF P0=1 THEN SOUND 0,0,0,0:P0=0 

82 IF Pl=l THEN SOUND 1,0,0,0:81=0 

83 IF P2=l THEN SOUND 2,0,0,0:P2=0 

84 IF P3=l THEN SOUND 3,0,0,0:P3=0 

85 GOTO 50 

90 TRAP 91:FOR V=0 TO 3:SOUND V,0,0,0: 
NEXT ViBOTQ 30 

91 END 

700 ? CHRJ (2531:7 " HMEASURE 

FULLH":? :? “PLAY MEASURE OR":? :? "E 
DIT MEASURE OR":? :? "SAVE MEASURE" 

701 TRAP 700:? :7 "WHICH?":? :? "ENTER 
2 TO PLAY":?" 2 TO EDIT":? " 

3 TO |AVE":INPUT PES 

702 “iF PES=1 THEN 708 

703 IF PES=2 THEN 5000 

704 IF PES=3 THEN SV=1:G0T0 708 

705 ? CHR$!2531:GOTO 700 

708 GRAPHICS 2+16:? I6:PRINT #6;“ 

PUy muSIc" 
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709 ? 86:? I6;TITLE1$:? 86:? 86;TITLE2 
$ 

710 L0=0:N0=0:L1=0:N1=0:L2=0:N2=0:L3=0 
:N3=0:P0=0:P1=0:P2=0:P3=0:0RD=0 

712 V0=-1:V1=-1:V2=-1:V3=-1:T0=0:T1=0: 
T2=Q:T3=0:PQKE 19,0sP0KE 20,0 
720 SOUND 0,NO, 10,LO:SOUND 1,111,10,LI: 
SOUND 2,N2,10,L2:S0UND 3,N3,10,L3 
722 TN=PEEK119)1256+PEEK(20):IF TH>=TO 
THEN TM=TO:P0=1:V0=V0+1:BOSUB 12 
725 IF H1=0 THEN 751 
730 IF TH>=T1 THEN TM=T1:P1=1:V1=V1+1: 
GOSUB 16 

735 IF H2=0 THEN 751 

740 IF TH>=T2 THEN TM=T2:P2=1:V2=V2+1; 

GOSUB 18 

745 IF H3=0 THEN 751 

750 IF TM>=T3 THEN TH=T3:P3=l:V3=V3+1: 
GOSUB 20 

751 IF P0=1 THEN SOUND 0,0,0,0:P0=0 

752 IF P!=l THEN SOUND 1,0,0,0:P1=0 

753 IF P2=l THEN SOUND 2,0,0,0:P2=0 

754 IF P3=l THEN SOUND 3,0,0,0:P3=0 

755 GOTO 720 

760 FOR V=Q TO 3:S0UND V,0,0,0:NEXT V: 
IF SV=1 THEN SV=0:GOTO 6500 
765 GOTO 700 

800 H1=0:H2=0 s H3=0:V1=0:V2=0:V3=0:R0=3 
:R1=0:R2=0:R3=0:DIN A$!3):WT=400 
802 ? ">":? " tSMUSIC PROGRAMN 

ERti":? :? " NOTES AND RESTS ARE ENTERE 
D AND EDITED"; 

804 ? "MEASURE BY MEASURE IN ^ TO 4 
ICES USING A ROUTINE CALLING FOR Iff 
E, DURATION,OCTAVE,"; 

806 ? “ AND LOUDNESS, MEASURELENGTH IS 
DETERMINED FROM THE TIME SIGNATURE 
. TIED NOTES, DOTTED NOTES," 

807 ? "AND TRIPLETS ARE ENTERED WITH": 
? "SUBSCRIPTS, TIED MEASURES ARE COMBI 
NEDINTO ONE LARGE MEASURE."; 

809 ? " SHARPS AND FLATS ARE ENTERE 

D WITH THEIR NOTES SINCE THERE ARE 

NO KEY SIGNATURES." 

810 ? "EACH MEASURE MAY BE PLAYED FOR 


EDITINGBEFQRE SAVING." 

812 ? :? “EACH MEASURE IS THEN SAVED B 
Y’:? "TRANSFERRING TO DATA STATEMENTS 
WHICH MUST BE ENTERED "; 

813 ? “INTO THE PROGRAM.":? :? "PRESS 
RETURN TO CONTINUE.":INPUT Al 

814 ? "}":? “WHAT IS THE MAXIMUM NUHBE 

R OF NQTES-UPTO 16-YOU WILL NEED TO EN 
TER INTO ANY" " 

816 ? " SINGLE VOICE IN ANY MEASURE? HE 
ASURES TIED TOGETHERllTH CONTINUING N 
OTES ARE TREATED AS ONE "; 

818 TRAP 814:? "LARGE MEASURE.":INPUT 
V0:NLV=V0 

819 IF V0<1 OR V0>16 THEN ? CHR$(253): 
? “ 1 TO 16 NOTES PER MEASURE! ":FOR W= 
1 TO WT:NEXT W:GOTO 814 

820 TRAP 820:? "}":? "HOW MANY VOICES 
U TO 4)WILL YOU NEED":INPUT NV 

821 ON"NV GOTO 826,825,824,823 
825 ? CHR$(253):GOTO 820 

823 H3=l:V3=V0:R3=R0 

824 H2=1:V2=V0:R2=R0 

825 H1=1:V1=V0:R1=R0 

826 ? ">":? :? " TIME SIGNATURE? ":? "WH 

ICH? 1 FOR 4/4":? “ 2 FOR 3/4 OR 

6/8" f? 11 3 FOR 2/4“** 

827 ? ” 4 FOR 2/2":TRAP 826:INPU 

T TS 

828 IF TS<1 OR TS>4 THEN ? CHR$(253):G 
OTO 826 

829 IF TS=2 THEN TS=0.75 

830 IF TS=3 THEN TS=0.5 

833 ? ">":? " TEMPO? FAST TO SLOW":? °W 
HICH? 8 9 10 11 12":? :? "WITH 9 OR 11 
: NO DOTTED*16th*N0TES ANDNO 16th“; 

834 ? - OR DOTTED 8th NOTES WITH 2/2 
TIME.”:? :? "WITH 10 OR 12: NO 16thllQ 
TES WITH 2/2 TIME."? " 

835 ? "WITH 9 OR 12: TRIPLETS ARE ENTE 
RED NORMALLY WITH TEMPOS 9 AND 12 A 
ND AS TWO DOTTED AND ONE NORMAL"; " 

836 TRAP 833:? " NOTE OF THE NEXT FAST 
ER SPEED WITH OTHER TEMPOS. NO TRIPLE 
T 16th NOTES WITH 9,“:? :INPUT DL 
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837 IF DL<8 OR DL>12 THEN ? CHRi(253): 
GOTO 833 

838 DL-DU16 

839 IF TS=4 THEN TS=l:DL=DLt0.5 

840 DIN NO(VO,RO),N1(V1,R1),N2(V2,R2), 
N3(V3,R3),N!11,3),D(3,1) 

842 DIN TITLEl$t20),TITLE2$!20),V$(l), 
0$(2),N$!2),D$(3),L$(3) 

849 ? :? :? "WHAT IS THE TITLE 0 

F YOUR SONG?":? :? "CENTER IN 11th SPA 
CE":? "WITH FIRST w LINE HERE" 

850 ? "AND SECOND^LINE NEXT.":? "USE U 
PPER AND loser":? - "CASE It INVERSE vide 
o.": INPUT TITLED 

855 ? :? "CONTINUE TITLE HERE.":INPUT 
TITLE2* 

910 RESTORE 920:FOR 0=0 TO 3:FOR N=0 T 
0 11:READ VN:N(N,0)=VN:IF VN=256 THEN 
980 

920 DATA 243,230,217,204,i93,182,173,1 

62,153,144,136,128,121,114,108,102,96, 

91,85,81,76,72,68,64,60,57,53 

930 DATA 50,47,45,42,40,37,35,33,31,29 

,0,256 

940 NEXT N:NEXT 0 

980 MVT=44tNV:HN=0:HNT=Q:DT=0:SV=0:ST= 
0: LN1=101:LNS=39:SN=1 

984 FOR R=0 TO 1;FOR C=0 TO 3:DiC,R)=0 
:NEXT C:NEXT R 

985 HL=FRE(0) 

990 FOR V=0 TO VO;FQR R=0 TO R0:N0(V,R 
)=0:NEXT R:NEXT V 

991 FOR V=0 TO VitFOR R=0 TO R1:N1(V,R 
)=0:NEXT R:NEXT V 

992 FOR V=0 TO V2:F0R R=0 TO R2;N2(V,R 
)-0:NEXT R:NEXT V 

993 FOR V=0 TO V3:F0R R=0 TO R3:N3(V,R 
)=0:NEXT R:NEXT V 

994 V0=0: V1=0:V2=0:V3=0:V0E=0:CKO=0:CK 
l=0:CK2=0:CK3=0:DN=DLtTS:RELN=LNl 

995 FOR C=0 TO 3:DtC,0)=0:NEXT C 

996 ? ")':? "ENTER TOTAL NUHBER OF CON 

BINED MEASURES.“;? :? "HOW MANY 

? 1 FOR NO COMBINED MEASURES." 

997 ? 1 “ 2,3,4 COMBINED MEASUR 


ES.’:? :? "LIMIT "jNLV;" NOTES PER VOI 
CE. “:TRAP 996:INPUT CM 
998 IF CM<1 OR CM>4 THEN ? CHRf!253):G 
OTO 996 

1000 DM=DMtCN:MN=MN+CH:MNT=MNT+CM:MV=M 
L-FRE tO):ML=FRE!0):MVT=MVT+MV:MVA=MVT/ 
MNiNM=INT(ML/MVA+0.5)-1 

1001 IF H1=0 THEN CK1=1 

1002 IF H2=0 THEN CK2=1 

1003 IF H3=0 THEN CK3=1 

1004 0f="4":0=l:NI="C":N=0:Df="Q":D=DL 
/4:L$="MF":L=8 

1005 IF CKO=i AND CK1=1 AND CK2=1 AND 
CK3=1 THEN V=0:0=3:N=2:D=0:L=0:GOTO 15 
00 

1010 ? "}“:? :? 11 MENTER MUS 

ICtl":? :? “THIS IS MEASURE “;HNT:? "N 
UMBER OF AVERAGE MEASURES LEFT = ";NM 
1015 IF CK0=0 THEN V=0:Vf="0":ENT=V0+l 
:GOTO 1022 

1017 IF CK1=0 THEN V=1:V$="1":ENT=V1+1 
:GOTO 1022 

1019 IF CK2=0 THEN V=2:V$="2":ENT=V2+1 
:GOTO 1022 

1021 IF CK3=0 THEN V=3:V$=“3":ENT=V3+1 

1022 IF ENT=NLV THEN ? CHRt“(253):? "J 
HIS IS THE LAST NOTE THE COMPUTER T 
AN ENTER IN THIS VOICE! " 

1023 IF ENT/NLV THEN ? ”)":? " TOO MAN 
Y NOTES GOTO 5001 

1030 ? :? " VOICE “;V$;": ENTRY ";ENT 

1031 ? :? "NOTE?":? :? "WHICH? AF,A,AS 

":? “ BF,B":? " £cS"7? 

" DFIDS' 1 ~ 

1032 ? " ** “ ?F,E,ES":? ■ F 

,FS“:? " £f,G,GS":? “ R FO 

RAREST" - - - 

1033 ? :? "ENTER Sfl FOR SAME NOTE-"jN 
$j" i " i D$;",";"2CT";0$j",";L$:INPUT A« 
1035 IF A$="R” THEN N=l:0=3:L=0:Nt="R" 
:L$="0FF":0$="R":? ")“:? " VOICE ":V$:" 

: ENTRY ";ENT;", REST":GOTO 1121 

1038 IF A$=“SM" THEir 1211 

1040 N$=A$:IF N$="C" THEN N=0:G0T0 112 

0 
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1045 IF N$="B* THEN N=IliG0T0 1120 
1050 IF N$=“8F" OR N$="AS" THEN N=10:G 

OTO 1120 

1055 IF Nt="A“ THEN N=9:60TO 1120 
1060 IF N$="AF" OR Nt=“GS“ THEN N=8:G0 
TO 1120 

1065 IF N$=“G“ THEN N=7:6DT0 1120 
1070 IF N$=“GF“ OR N$=”FS" THEN N=6:GQ 
TO 1120 

1075 IF N$=“F“ THEN N=5:G0T0 1120 
1080 IF N$="E" THEN N=4:G0T0 1120 
1085 IF Nt="EF“ OR N$="DS" THEN N=3:GQ 
TO 1120 

1090 IF N$="D“ THEN N=2:GOTO 1120 
1095 IF N$=“DF 1 ' OR N$= B CS" THEN N=1:GQ 
TO 1120 

1105 ? "}":? CHR*(253):N$="SH":GOTO 10 
30 

1120 TRAP 1120:? "}":? " VOICE B ?V$; 
ENTRY “;ENT;‘, NOTE “;N$ 

1121 ? :? “TOTAL DURATION IN HEASURE A 
ND PROGRAN * : 

1122 ? “ VOICE 0 = “,D(0,0),DtO,1):? 
" VOICE 1 = “,D!1,0),D(1,1!:? " V 

OICE 2 = ",0(2,01,0(2,1) 

1123?" VOICE 3 = n ,D(3,0),D(3,l) 

1124 ? :? " DURATION OF NOTE OR REST?”: 
? “WHICH? SIXTEENTH":? “ EIGHTH 8 

1125 ? " * QUARTER":? " “ HALF 

“:? " WHOLE":? "ADD i FOR DOTTED 

NOTES" 

1126 ? "ADD 3 FOR TRIPLET NOTES”:? "AD 
D T FOR TIEjD* NOTES" 

1127 ? :? "ENTER §£ TO EDIT NQT£ ";N$: 
? “ENTER 311 FOR SANE NOTE-";Nt;",”;D$; 

; "OCT" j"o$; “, “;Lf: INPUT At 

1129 IF A$=“ED" THEN ? "}":GOTO 1030 
1131 IF At="SN“ THEN 1211 

1137 D$=A$:IF Dt(l,l)=”S" THEN D=DL/16 
:GOTO 1152 

1142 IF Did, 1)="E" THEN D=DL/8:G0TQ 1 
152 

1145 IF Di(l,l)="Q" THEN D=DL/4:G0T0 1 
152 


1147 IF D$(l,1)="H" THEN D=DL/2:G0T0 1 
152 

1150 IF D$(1,1)=“W" THEN D=DL:GOTO 115 
2 

1151 ? CHR$(253):D$="SH":GQT0 1120 

1152 IF 00(1,11=0$ THEN 1158 

1154 IF D$(2,2)="T“ THEN 1200 

1155 TRAP 1156:IF D$(3,3)="T" THEN 120 
0 

1156 IF D$(2,2)=V OR D$(2,2)=“3" THE 
N 1158 

1157 ? CHR$(253):D$="SN“:GOTO 1120 

1158 IF N$=“R" THEN 1200 

1160 ? ")":? :? “ VOICE ";V$;": ENTRY " 

;ENT;", NOTE ";N$;",";“ DURATION ”;Di 

1161 ? :? " OCTAVE? 4 GOES UP FROM HIDD 
LE £":? :? "WHICH? 3,4,5,6“ 

U62 ? :? "ENTER ED*TO EDH DURATION " 
;D$:7 "ENTER SN FOR SANE NQTE-“;N$; 
;D$;",";"0CT"]0$;","|L$:INPUT A$ 

1163 IF A$="ED" THEN 1120 

1164 IF A$="SM 0 THEN 1200 

1166 TRAP 1169:0$=A$:0=VAL(0$i:0=0-3:I 
F 0<0 OR 0)3 THEN ? CHRK253):? "}":G0 
TO 1160 

1177 ? “}":? :? :? " VOICE ";Vi:“: ENTR 
Y ";ENT; n , NOTE ";N$;", DURATION ";Dt: 

? "OCTAVE ”;04 

1178 ? :? " LOUDNESS? ":? :? "WHICH? PP, 

P,HP":? " " 22 

11 

1179 ? :? “NORHAL VALUES:":? " MF FOR 
MELODY" 

1180?" P FOR ACCOMPANIMENT"!? :? “ 
ENTER ED TO**EDIT OCTAVE ";0$:INPUT At 

1182 IF*A$="ED“ THEN 1160 

1183 L$=A$:IF L$="PP" THEN L=2:G0T0 12 
00 

1184 IF L$=“P" THEN L=4:GQT0 1200 

1185 IF L$="MP" THEN L=6:G0T0 1200 

1186 IF L$=”NF" THEN L=8:GQTQ 1200 

1187 IF L$="F" THEN L=10:G0T0 1200 

1188 IF Lt="FF" THEN L=12:SQTQ 1200 

1189 IF Lt="OFF" THEN L=0:G0T0 1200 
1192 ? CHRt(253):GOTO 1177 
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1200 IF Dt(l,l)=Dt THEN 1210 
1202 IF D$(2,2)=".” THEN D=D*3/2 

1204 IF D$(2,2!="T“ THEN DT=DT+D:? CHR 

4(253):? " ENTER DURATION OF TIED NOTE 
X":FOR W=l TO NT:NEXT W:GOTO 1120 
1*206 TRAP 1208:IF Dt(3,3)=''T" THEN DT= 
DT+D:? CHR$(253):? " ENTER DURATION OF 
TIED NOTE! ":FOR H=1 TO NT:NEXT H:6QT0 
1120 

1208 IF D$(2,2)="3" THEN D=D*2/3 

1210 D=D+DT:DT=0:IF DOINT(D) OR D<8 T 

HEN 1940 

1211 IF 0=3 AND NOl AND NOO THEN ? C 
HR$(253i:? “ NOTE TOO HIGH! “:F0R H=1 T 
0 NT:NEXT N:6QT0 1160 

1212 D!V,0)=D!V,0)+D:D(V,1)=D(V,1)+D 
1214 IF D(V,0)>DR THEN D(V,0)=D(V,0)-D 
:D(V,1)=D(V,1)-D:S0SU8 1940 

1216 TRAP 5001:IF V=0 AND D(0,0)=DN TH 
EN CK0=1: ? CHRK253) 

1218 IF V=1 AND D (1,0) =DH THEN CK1=1:? 
CHR$(253) 

1220 IF V=2 AND D(2,0)=DH THEN CK2=1:? 
CHR*(253) 

1222 IF V=3 AND D(3,0)=DN THEN CK3=1:? 
CHR$(253) 

1224 IF V=0 THEN 1500 

1226 IF V=1 THEN 1600 

1228 IF V=2 THEN 1700 

1230 IF V=3 THEN 1800 

1500 N0(V0,1)=N(N,0):NO(VO,2)=L:NO(VO, 

3)=D:IF N(N,01=256 THEN GOTO 700 

1510 VO=VO+1:VOE=VO:GOTO 1005 

1600 N1(VI,1!=N(N,Q):N1(V1,2)=L:N1(V1, 

3)=D:V1=V1+1:V1E=V1:GOTO 1005 

1700 N2!V2,1)=N!N,0):N2(V2,2)=L:N2!V2, 

3)=D:V2=V2+1:V2E=V2:GOTO 1005 

1800 N3(V3,1)=N(N,0):N3(V3,2)=L:N3(V3, 

3)=D:V3=V3+1;V3E=V3:GOTO 1005 

1901 ? :? CHR$(253);” VOICE UNAVAILABL 

EJ_“:FOR H=1 TO WT:NEXT B:GOTO 5000 

1940 ? :? CHR$(253); DURATION UNAVAIL 

ABLE]“:FOR W=1 TO NT:NEXT H:Dt="Q":D=D 

uTgoto 1120 

5000 TRAP 5000:? "}“:? " ttEDIT NEA 


) ) ) ) ) ) ) ) ) ) ) 


SURE OF MUSICtl”:? :? '' VOICE? ' 1 :? :? "N 
HIGH? O^SVINPUT V 

5001 V0=0:V1=0:V2=0:V3=0 

5002 IF VOO THEN VO=VOE 

5004 IF V=1 AND H1=0 THEN 1901 

5005 IF VOl AND Hl=l THEN V1=V1E 

5006 IF V=2 AND H2=0 THEN 1901 

5007 IF V<>2 AND H2=l THEN V2=V2E 

5008 IF V=3 AND H3=0 THEN 1901 

5009 IF V<>3 AND H3=l THEN V3=V3E 

5010 IF V<0 OR V>3 THEN ? CHRt(253):G0 
TO 5000 

5016 IF V=0 THEN D(0,1)=D(0,1)-D(0,0): 
D(0,0)=0:CK0=0 

5017 IF V=1 THEN D(l,1)=D(1,1)-D(1,0): 

D(1,0)=0:CK1=0 

5018 IF V=2 THEN D(2,1)=D(2,1!-D(2,0): 

D(2,0)=0:CK2=0 

5019 IF V=3 THEN D!3,1!=D(3,1)-D(3,0): 
D(3,0)=0:CK3=0 

5020 ? :? CHR$(253);"EDIT VOICE ";V:FO 
R W=1 TO NT:NEXT N:GOTO 1004 

6500 IF ST=1 THEN 7510 

6502 ? ")“:? " tISAVE MUSICt* 

11 :? :? "HOVE CURSOR TO LINE NUMBER (LN 
! AND" “ 

6505 ? "PRESS RETURN TO ENTER INTO PRO 
GRAM. THEN TYPE CONT AND PRESS RETUR 
N TO CONTINUE.' 

6508 ? :? “JJ" 

6510 ? "40 ??6:?#6; ";CHR$(34);TITLE1$ 
;CHR$(34);" :?#6:?#6; H ;CHR$(34!;TITLE 
2$;CHRt!34) 

6511 IF H1=0 THEN ? "60" 

6512 IF H2=0 THEN ? "70" 

6513 IF H3=0 THEN ? "80" 

6514 STOP 

7510 3T=1:0RB=Q:V0=Q:V1=0:V2=0:V3=0:LN 
l=LNl-l 

7520 ? :? "}":? "LN^" 

7522 FOR LN=1 TO 6:LN1=LN1+1 
7525 ? LNlj" DATA 
7530 FOR NS=1 TO 9 

7532 IF NS=9 AND N0(V0,0)=0RD AND NO(V 
0,1)=256 THEN 7540 
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7535 IF NS=9 THEN ? CHR*(126):GOTO 757 
5 

7540 IF NOiVO,0)=0RD AND NO(VO,i)=256 
THEN ? CHR$(126):? LN1+1;" DATA B ;NO(V 
0,1);",”|N0(VO,2)j","jNO(VO,3)sGOTO 75 
80 

7545 IF NO(VO,0)=ORD THEN ? NOfVO, 1);" 
,"; NO (VO, 2);", B ; NO (VO, 3);",";; VO=VO+1: 
0RD=0RD+1:NEXT NS 

7550 IF N1(V1,0)=0RD THEN ? Nl(Vl,I); a 
, "jNl (Vl,2);% "jNl (Vl,3);:V1=V1+1: 
QRD=QRD+1:NEXT NS 

7560 IF N2(V2,0> =ORD THEN ? N2(V2,1);" 
,";N2(V2,2);",";N2(V2,3);“,"j:V2=V2+l: 
0RD=0RD+1:NEKT NS 

7570 IF N3(V3,0)=0RD THEN ? N3(V3,15; H 
,";N3(03,2);“,"|N3(V3,3!j“,";:V3=V3+l: 
ORD=QRD+1:NEXT NS 
7575 NEXT LN 

7580 ? :? "ENTER LINE NUHBERS AND CONT 
INUE,":STOP 

7590 IF NOiVO, 1)0256 THEN GOTO 7520 
7600 LN1=LN1+1:GOTO 30 

8450 ? 8 iiSAVE ON DISKETT 

E» 8 :? :? “SAVE PLAY PROGRAM AND DATA 
WITH THE 8 

8451 ? "INITIAL GROUP OF MEASURES BUT 
ONLY DATA IN SUBSEQUENT SAVES. 8 

8452 ? :? " INSERT BLANK DISKETTE! 8 :? : 
? "ENTER LINE NUMBER AND CONTINUE." 
:? 

8453 ? “ LN ":? "8460 LIST 8 ;CHRf(34); 
"D:SONG 8 ;SN; 8 .ENT";CHR$!34)| 8 ,";LNS; 8 , 
";LN1:STOP 


8454 ? "}":? :? "PROGRAM BEING SAVED." 

8461 IF LNS=39 THEN LNS=101:? 8 } 8 :? :? 
"ENTER LINE NUMBERS TO CLEAR MEMORY F 

ORNEXT GROUP OF MEASURES. 8 

8462 FOR W=1 TO WT-.NEXT W:LN=LNS-1 

8463 ? "}":? "LN ":LNF=LNS+15:IF LNF>= 
LN1 THEN LNF=LN1 

8464 FOR W=LNS TO LNF:LN=LN+1:? LN:NEX 
T W 

8465 SN=SN+1:? :? "ENTER LINE NUMBERS 
AND CONTINUE.":STOP 

8466 LNS=LNF+1:IF LNS<=LN1 THEN 8463 

8468 ? "}":? :? "LOAD OR ADD THIS MUSI 
C PROGRAM AND” 

8469 ? "ADDITIONAL DATA TO ANOTHER PRO 
6RAM WITH ENTER "D:SONG#.ENT" 8 

8470 LNS=LN1;FOR W=1 TO NT:NEXT W:GQTQ 
985 

9031 TRAP 30:? :? "SAVE ON CASSETTE OR 
“:? :? "RE-ENTER LINE NUMBERS":? :? "« 
HICH?":? :? "ENTER j TO PLAY" 

9450 ?"}":?" ** itSAVE ON CASSETT 

Eli":? :? "SAVE PLAY PROGRAM AND DATA 
WITH THE" 

9452 ? :? “ENTER LINE NUMBER AND CONT 
INUE.":? 

9453 ? "JJJ:? " 8460 LIST * J CHR$ (34) ; 
"C"j CHR$(34);“, 8 ;LNS;",";LN1:STOP 

9454 ? "}":? :? "ON BELL, SET RECORDER 
TO RECORD AND PRESS RETURN ." 

9469 ? "ADDITIONAL DATA TO ANOTHER PRO 
GRAM WITH ENTER "C" 8 
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A,3= X 



Character 

Generator 


Atari Character Generator is an 
Atari utility program requiring 16K 
RAM. 

The first thing to do before running 
the Character Generator is to press 
SYSTEM RESET. Then load the pro¬ 
gram, and type RUN. It is absolutely 
necessary to press SYSTEM RESET 
prior to running any program using a 
modified character set. Forgetting to 
do so can cause the computer to lock 
up and lose the program currently in 
memory. 

After about twenty seconds you 
should see all the characters (except in¬ 
verse) displayed on the left side of the 
screen; a large box displayed on the 
right side; and at the bottom the 
message “Edit character or Save 
file?.” Let’s assume for now that you 
type “E.” 

The message “X,Y coordinate of the 
character?” will now be displayed. 
This is prompting you for the horizon¬ 
tal (X) position of the character, which 
is between 0 and F, and the vertical (Y) 
position, which is between 0 and 7. 
Type them in together. For this 
example we’ll type 0,2 (the comma is 
optional) which corresponds to the 
blank space character. 

The computer will now put that 
character into a small box, and an ex- 
- panded version in the large box next to 
it. Ip this case the character is blank, so 
nothing is put in either box. 

The passage at the bottom shows 
you the nine different commands 
available to you in the modify mode. 
You should also see a blinking “ + ” in 


the large box on the right. This is your 
cursor. It shows you where the next 
modification will take place. Note: 
Only DELETE and RETURN make 
actual changes to the character set as 
stored in memory; the other commands 
affect only the display. 

To plot a block in the character, use 
the SET command. Use the arrow keys 
to position the cursor where you want 
to make a change, and press “S” to 
turn the block on. To do the opposite, 
type “R” to RESET the block (make it 
blank again), positioning the cursor in 
the same way as for the SET com¬ 
mand. If you want to erase the entire 
drawing pad, type “E” for ERASE. 
Or, to start with all blocks on, type 
“W” to WHITE out all blocks. 
Reversing the drawing is done by typ¬ 
ing “I” for INVERSE. 

If you want to load in another 
character with which to start your 
design, type “C” for COPY. You will 
be asked to select a character, and its 
pattern will then be copied onto the 
drawing pad. 

If you accidentally choose the wrong 
character to modify, you can cancel the 
MODIFY mode at any tme by hitting 

i the ESC key. This allows you to 
ESCAPE to the “X,Y of character” 
mode. The DELETE command lets 
you change your mind about a 
modification by restoring the current 
character to its unmodified form. 

Finally, when everything is correct, 
hit RETURN to make the change both 
in memory and on the screen. 
Remember that this change is not per¬ 
manent, and can be changed again by 
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using any of the commands. 

For our example, let’s draw a series 
of vertical stripes in the large box. 
When everything is just right, press 
RETURN. Right in front of your eyes, 
all blank spaces on the screen should 
turn a different color. 

You can keep on modifying all night 
if you want, but for now, we’ll call it a 
day. When you see the message “X,Y 
of ...,” press RETURN again. This 
will take you back to the original 
menu. From here, select the “S” op¬ 
tion to save the file. The computer will 
ask, “Want to SAVE (Y/N) ?.” In 
case you hit “S” by accident, type N. 
Otherwise, type Y and hit RETURN. 
The prompt, “To Cassette or Disk?” 
will be displayed; answer with a “C” 
or “D.” 

If you said “D,” then answer the 
next question with the 8-letter filename 
plus a 3-letter extension, #11 preceded 
by a “D:”. Answer the next question 
“Is this right?” with a “Y” or “N”, 
and hit RETURN. 

If you said “C”, for a cassette save, 
then you’ll hear two beeps. Prepare the 
cassette and press RETURN. After the 
save, type “Y” to continue or “N” to 
stop. 

Now that you’ve saved it, what can 
you do? This is the best part! Write 
your program between lines 2 and 
31999 using the characters that will be 
modified where necessary. When it’s 
all done and totally debugged, type 
either ENTER“C:” for cassette or 
ENTER 4 ‘D:filename.ext’’ for disk. 
This will merge the custom character 
set into your program, and it should 
run perfectly the first time. 

Two final notes: First, the new pro¬ 
gram will take an extra 1.25K of 
memory and will take longer to 
initialize. Second, after every 
GRAPHICS command you must insert 
a POKE 756, PEEK (106) +1. This is 
because the GRAPHICS command 
restores the character set pointer in 
memory. The new set is still there, but 
the pointer must be reset to access it. 


One benefit from this is that you can 
toggle back and forth between the two 
character sets by typing POKE 756, 
224 to get the original set and POKE 
756, PEEK (106)+1 for the new set. 
Note that PRINT CHR$(125) clears 
the screen as does GRAPHICS 0, but 
does not affect the current character 
set. 

Editor's note: 

XFR$, which you will find printed as 
a series of periods in the program 
listing, actually contains a Machine 
Language routine that quickly sets up a 
redefined character set for the Atari. It 
is very difficult to represent this string 
in the listing of the program, so here 
are explicit instructions on how to type 
it. 

In these instructions, each key is 
represented by something between 
brackets . Thus [h] means to type a 
lower-case “hlikewise, [Atari] 
means to press the Atari logo key, 
which is found next to the right-hand 
shift key, and [CTRL-N] means to 
press the “N” key while holding down 
the “CTRL” key . Special note: [1] is a 
the numeral one — it is not the lower¬ 
case version of “L”! 

Type the following sequence exactly 
to produce XFR$: 

[h] [Atari] [)] [Atari] [CTRL-,] 

[Atari] [CTRL-E] [K] [CTRL-E] [M] 
[)] [CTRL-.] [CTRL-E] [N] [%] 
[Atari] [j] [CTRL-X] [i] [CTRL-A] 
[Atari] [CTRL-E] [L] [spacebar] 
[Atari] [CTRL-,] [Atari] [1] [M] 
[CTRL-QJ [K] [H] [P] [y] [f] [L] [f] 
[N] [%] [N] [I] [d] [P] [m] [Atari] 
[CTRL-.] 

Variables 

A$: Misc. string input. 

B: Binary bit value counter. 

B(i): Modified character pointer array 
(-1 = not modified). 

C: Character byte value. 

CC: Current character at cursor posi¬ 
tion. 

CH: Command character. 

CU: Cursor character. 

CX: Cursor X position. 
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CY: Cursor Y position. 

FL: Modify flag. 

HEX$: Used in converting hex input 
to decimal. 


SS 

SS SS SS SS SS SS SS SS SS 

SS 

SS 


SS 

SS 

Atari BASIC 

SS 

SS 

'Character Generator’ 

SS 

SS 

Author: Alan J. Zett 

SS 

SS 

Copyright (c) 1982 

SS 


SS SoftSide Publications, Inc SS 
SS SS 
SS SS SS SS SS SS SS SS SS SS SS 


Initialization. 

10 OPEN #1,4,0, "K":0PEN 12,12,0, “S" 
12 CLR :DIH B(127),HEXt(16) 

14 DIN A*U4):GQSUB 10000 
20 HEXJ=“0123456789ABCDEF" 

22 SETC0L0R 2,9,2:SETC0L0R 4,4,4 
24 POKE 82,21 

Redraw entire display. 

30 ? CHR$<125):POKE 752,1 

32 POSITION 19,0 

33 ? " CHARACTER GENERATOR ■ 

34 POSITION 19,1 

35 ? 11 BY ALAN J. ZETT 11 

36 FOR X=7 TO 16 STEP 9:POSITION 2,X 
38 ? 11 0123456789ABCDEF ";:NEXT X 

40 FOR X=8 TO 15-.P0SITI0N 2, X 
42 ? CHRiIX+168);;POSITION 19,X 
44 ? CHR$(X+l&B);;NEXT X 
50 POSITION 4,5:? "Character set:"; 
60 POKE 766,1:FOR X=0 TO 7 
62 FOR Y=0 TO 15:P0SITI0N Y+3,X+8 
64 ? CHR$(X* 16+Y);:NEXT YtNEXT X 
66 POKE 766,0:POKE 752,1 

70 POSITION 26,7:? "qrrrrrrrre"; 

71 REM <CTRL> ’QRRRRRRRRE’ 

72 POSITION 26,16:? "xrrrrrrrrc"; 

73 REM <CTRL> ’XRRRRRRRRC’ 
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KP: Key pressed? (No = 255.) 
START: Starting location in memory 
of new character set. 

W, X, Y, Z: Misc. 


80 FOR X=B TO 15:P0SITI0N 26,X 

82 ? "= =“;:NEXT X 

83 REM <SHIFT> ’= 

90 POSITION 24,14:? "qrd"; 

91 REM <CTRL> ’QRD’ 

92 POSITION 24,15:? “= ="; 

93 REN <SHIFT) ’= =’ 

94 POSITION 24,16:? "zrx"; 

95 REM CCTRL) ’ZRX’ 

Select main program options. 

100 GOSUB 9000:POSITION 2,20 
102 POKE 752,0 

104 ? "Edit character or Save file"; 

106 INPUT A$ 

108 IF At!l,l)="S" THEN 570 
110 IF A$(1,1X>“E" THEN 100 

Input and adjust value of character. 

120 GOSUB 9000:POSITION 2,20:TRAP 66 
122 ? "X,Y coordinate of the character 
INPUT A$ 

130 IF A$(LEN1A$)!<“0" OR At(LEN(A$))> 
"7" THEN 120 

140 TRAP 33333:Y=VAL(A$(LEN(A$))):X=1 

150 IF A$(l,l)OHEXHX,X) THEN X=X+1:I 

F X<17 THEN 150 

160 X=X-1:IF X>15 THEN 120 

170 POKE 752,1:Z=X+Y*16 

172 POSITION 25,15:PQKE 766,1 

174 ? CHRi(Z}j:POKE 766,0 

180 IF Z<32 THEN Z=Z+64:G0T0 200 

190 IF Z<96 THEN 1=1-12 

Draw character onto pad. 

200 POKE 82,27 

210 FOR Y=0 TO 7:X=0:C=PEEK(START+Y+Z* 

8):B=256 

220 B=B/2:IF B<1 THEN 270 
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230 POSITION X+27,Y+8:X=X+1 
240 IF (C-BKO THEN ? H ";:GQTO 260 
250 IF (C-B)>=0 THEN ? "J';:C=C-B 
260 GOTO 220 
270 NEXT Y 

Get command; branch to appropriate 
routine. 

280 G0SUB 9009:PQSITI0N 2,20:P0KE 82,2 
290 POKE 752,1:? “Copy, Delete, Erase, 
friverse, Reset,":? :? “Set, White, ES 
Cape, RETURN to store."; 

300 POKE 752,1:POKE 764,255:CX=27:CY=B 
310 POSITION CX,CY:GET 12,CC 
320 POSITION CX,CY:PUT I2,CC:KP=PEEK(7 
64):CU=43:IF CC<>32 THEN CU=171 
330 IF KP=255 THEN POSITION CX,CY:PUT 
#2,CU:GOTO 320 


340 

GET #1,CH:IF CH=155 

THEN 470 

350 

IF 

CH=27 THEN 

120 


352 

IF 

CH=ASC(“E") 

THEN 

790 

354 

IF 

CH=ASC("C“) 

THEN 

820 

356 

IF 

CH=ASC("D") 

THEN 

810 

357 

IF 

CH=ASC("W ,, J 

THEN 

1000 

358 

IF 

CH=ASC!“I") 

THEN 

1020 

360 

IF 

CH=ASC("-") 

THEN 

CY=CY-1 

370 

IF 

CH=ASC("=") 

THEN 

CY=CY+1 

380 

IF 

CH=ASC (“<•") 

THEN 

CX=CX-1 

390 

IF 

CH=ASC(”t") 

THEN 

CX=CX+1 

400 

A 

IF 

CH=ASC!"S"> 

THEN 

CC=160:GOTO 32 

V 

410 

IF 

CH=ASC("R“) 

THEN 

CC=32:G0T0 320 

Move cursor on pad 

■ 


420 

IF 

CX<27 THEN 

CX=34 


430 

IF 

CX >34 THEN 1 

:x=27 


440 

IF 

CY<8 THEN CY=15 


450 

IF 

CY>15 THEN 1 

:y=8 



460 GOTO 310 

470 POSITION CX,CY:PUT #2,CC 
Modify character. 

480 FOR Y=0 TO 7:X=0:B=256:CC=X:C=X 
490 B=B/2:IF B<1 THEN 540 


500 POSITION X+27,Y+8:X=X*1:6ET I2,CC 

510 IF CC=32 THEN 530 

520 IF CC=160 THEN C=C+B 

530 GOTO 490 

540 POKE START+Y+Z»8,C 

550 NEXT YjPOSITION 34,15 

560 PUT #2,CC:B(Z)=Z*8 

562 FL=0:FOR Y=0 TO 7 

564 IF PEEKiSTART+Y+Z»8)OPEEK(57344+Y 

+ZiB) THEN FL=1 

566 NEXT YiIF FL=0 THEN B(Z)=-1 
568 GOTO 120 

Save file. Note: Correct spacing is 
critical in these lines. 

570 PRINT CHRt(125):POKE 82,2 

580 TRAP 990:PDSITI0N 2,5 

582 ? "You want to SAVE (Y/N)“j 

584 INPUT AfilF A$U,1K>"Y" THEN 30 

590 ? “To £assette or Disk";:INPUT A$ 

600 IF A$<~"D" THEN 620 

610 ? "Enter file ’D:FILENAHE.EXT’° 

612 INPUT A$:? "Is ’";A$;"’ correct ?" 

• 

614 GET #1, CH: IF CH=78 THEN 610 
620 OPEN #3,8,0,A$ 

630 PRINT 83;"1 GOSUB 32000:CLR" 

640 PRINT #3;"32000 POKE 106,PEEK!106) 
-5:GRAPHICS 0:START=(PEEK(106)+l)i256: 
POKE 756,START/256:POKE 752,1" 

650 PRINT #3;"32010 DIN XFR$(38):XFR$= 

“;CHR$(34);“. 

.";CHR$<34> 

651 REH Line 650: Replace string of 
.’s with the string in the docuaen- 
tation. 

660 PRINT #3;“32020 Z=USR!ADR(XFRt)):R 
ESTORE 32100" 

670 PRINT #3;"32030 READ X:IF X=-l THE 
N RESTORE :RETURN" 

6B0 PRINT #3;"32040 FOR Y=0 TO 7:READ 
Z:P0KE X+Y+START,Z:NEXT Y:G0T0 32030" 
690 LN=32100:LI=1:FOR Z=0 TO 127 
700 IF B!Z!=-1 THEN 750 
710 PRINT #3;STR$(LN);" DATA “; 
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720 PRINT #3;STRt(BIZ)); 

730 FOR Y=0 TO 7:PRINT #3;*,";STR$(PEE 

K(START+Y+Z18));:NEXT Y 

740 PRINT #3i”“:LN=LN+LI 

750 NEXT Z:PRINT #3;STR$!LN);“ DATA 

STRt(-l):CLOSE #3iTRAP 33333 

760 POKE 764,255:? :? “WANT TO CONTINU 

E”;:INPUT Al 

770 IF A*(1,1)=*Y* THEN 30 
780 ? CHRt(125):END 

Erase command. 

790 FOR Y=8 TO I5:P0SITI0N 27,Y 
800 ? n H j:NEXT Y:GOTO 300 

Delete command. 

810 B(Z)=-1:F0R Y=0 TO 7:POKE START+Y+ 
Z#8,PEEKi57344+Y+Zt8):NEXT Y:GOTO 120 

Copy command. 


820 GOSUB 9000:POSITION 2,20 
822 ? “X,V of character to copy"; 

824 INPUT A$ 

830 IF A$(LEN(A$)X“0“ OR A$(LEN(A$))> 
“7" THEN 820 

840 POKE 752,1:Y=VAL(A$(LEN(At))):X=1 
850 IF A$U,l)OHEX*iX,X) THEN X=X+1:I 
F X<17 THEN 850 
860 X=X-1;IF X>15 THEN 820 
870 W=X+Ytl6 

880 IF W<32 THEN W=W+64:GDT0 900 
890 IF W<96 THEN «=ll-32 
900 FOR Y=0 TO 7 

910 X=0:C=PEEK!START+Y+WI8):B=256 

920 B=B/2:IF B<1 THEN 970 

930 POSITION X+27,Y+8:X=X+1 

940 IF (C-BXO THEN ? “ “pGOTO 960 

950 IF (C-B)>=0 THEN ? “J|:C=C-B 

960 GOTO 920 

970 NEXT Y 

980 GOTO 280 


) ) ) ) ) ) ) > ) ) ) 


Error trap. 

990 ? :? :? “ INPUT ERROR, RE-ENTER. “ 
:SOTO 582 

White command. 


1000 FOR Y=8 TO 15:P0SITI0N 27,Y 
1010 ? ”_";:NEXT Y:60TO 300 


Inverse command. 


1020 FOR Y=8 TO 15:F0R X=27 TO 34 
1030 POSITION X,Y:GET #2,CH:POSITION X 

,Y 

1040 IF CH=32 THEN PUT #2,160 
1050 IF CH=160 THEN PUT #2,32 
1060 NEXT X:NEXT Y:GOTO 300 


Erase old messages. 


9000 POKE 752,1:POSITION 0,20 
9010 ? "I! i!!**;:P0KE 752,0:RETURN :REH 
Replace ! with CESC3CSHIFT3IDELETE] 
9020 REN 5 <ESCXSHIFTXDELETE>’S 


Download new character set, and reset 
modification pointers to -1. 

10000 POKE 106,PEEK(106)-5:GRAPHICS 0 
10010 START=(PEEK(106)+1)1256 
10020 POKE 756,START/256:P0KE 752,1 
10030 ? “INITIALIZING 
10040 DIH XFRJ138) 

10050 XFRi="... 


10051 REN Line 10050: Replace .’5 with 
the string listed in the docuaenta- 
tion. 

10060 Z=USR(ADR!XFRt)):FOR Z=0 TO 127 
10070 B(Z)--1:NEXT Z:RETURN 
32767 SAVE "DsCHARGEN.AJZ"sSTOP 
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ACCESS 

DATABASE 

by Mark Pelczarski 

Atari version by Paul Marentette 


Random Access Database is an in¬ 
formation management program for 
an Atari 400/800, requiring 32K RAM 
and a disk drive running under DOS 2. 

In-memory databases are limited in 
size because data must fit into available 
RAM. For example, if you had a 40K 
machine, you could have a database of 
approximately 170 90-byte records. 
With the random access database (and 
480 free sectors on a disk) more than 
770 of these records could fit in the 
database. Moreover, in-memory data¬ 
base managers must save all data to 
disk whenever the data changes. With a 
large quantity of data, this is both 
time-consuming and inefficient. 

Before examining the Random Ac¬ 
cess Database, let’s consider how Atari 
handles random disk access. The 
NOTE and POINT instructions are 
used to keep track of where each 
record resides on the disk. When a file 
is opened in mode 12 (OPEN #IOCB, 
12,0,“D:FILENAME”) an internal 
pointer positions the disk’s read/write 
head at the beginning of the file. Under 
program control, the POINT #IOCB, 
Sector,Byte instruction is then used to 
reposition the disk head at any sector 
and byte in the file. 


In this manner the computer can 
automatically calculate where a record 
resides on the disk, and bring only that 
record into memory. Only one com¬ 
plete record ever resides in RAM; this 
frees up the bulk of memory for stor¬ 
ing the pointers (disk addresses) for 
each record in the database. Since each 
pointer uses only 3 bytes, a much larger 
database can be created. 

The pointers, consisting of the sector 
(1-720) and byte (1-125) address of 
each record, are stored in P$. They 
could be stored in a numeric array, but 
that would require 12 bytes of memory 
for each sector-byte pair. Instead, by 
using the CHR$ and ASC functions, 
the two numbers can be stored in 3 
bytes. The first two bytes store a sector 
number. Byte #1 contains the number 
of 256’s in the sector number; byte #2 
contains the remainder; and byte #3 
contains the byte portion of the disk 
address. Thus an address of sector 550, 
byte 63 would have a pointer in the P$ 
string consisting of CHR$(2), CHR$ 
(38), and CHR$(63). 

The routine from line 1070 to 1110 
writes blank records into the disk file 
and stores their NOTEd addresses in 
the P$ string using the CHR$ function. 
Lines 170 to 180 contain a reverse pro- 
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cess which uses the ASC function to 
decode the P$ characters into byte and 
sector numbers and then point the disk 
head to the calculated address. The 
program then reads (line 1160) or 
writes (line 1140) a record at that 
address. 

Stepping Through the Program 

Lines 110 to 700 contain variable 
initialization, frequently used 
subroutines, and the main menu and 
disk directory read routines. 

Now let’s examine the file initializing 
routine. Starting at line 850 the number 
and names of headings are established. 
The numeric array B(NH +1) is used to 
store the starting bytes of each field 
since we are allowing fields to have dif¬ 
ferent lengths. 

Throughout the program the, S, E 
and L variables specify the start, end, 
and length of a field within the total 
record. These values are recalculated 
any time the field in question changes. 

Once the headings are known, the 
program calculates the maximum 
number of records that can be accom¬ 
modated, given the two limiting factors 
of available RAM and disk space. 
Then the tricky business starts. We 
could set aside enough disk space for 
MX records; but, if the database is a 
small one, disk space will be 
unnecessarily dedicated to the database 
file. We could add a new record to the 
end of the file each time one is needed; 
but that is wasteful too — Atari’s File 
Management System grabs a new disk 
sector every time a record is added (us¬ 
ing IO mode 9) and ignores any vacant 
bytes that might have existed on 
previously used sectors. 

The way I solved this problem was to 
“block” records in groups that come 
as close as possible to filling complete 
sectors. Up to 50 records (an arbitrary 
number) can be in a block. An efficient 
block size between 1 and approximate¬ 
ly 50 is calculated in lines 1000 to 1040, 
and then the subroutine at line 1070 is 
called to do the actual setting up of file 


space. The variable RA keeps track of 
total file space already set aside. When 
more space is needed, another block is 
added on. 

Every database file you create will 
have two disk files associated with it: 
The one with a “.DAT” extension will 
hold the actual records, and the other 
with a “.HDG” extension will hold the 
heading names, file size information, 
and the P$ string containing the 
pointers to all records in the “.DAT” 
file. The heading file is saved in lines 
1180 to 1260. Variables BLK and RA 
are saved along with the others so that 
the database program always knows 
how a particular file is blocked and 
what space is already set aside. The 
“.HDG” file will grow in size as the 
database grows; as more records are 
added, the pointer string gets longer, 
and that string is saved up to its current 
length. 

When an old file is loaded (lines 720 
to 800), the “.HDG” file is read first 
and variables are dimensioned as need¬ 
ed. Then a routine at line 820 is called 
to read into memory one complete set 
of fields for the first heading. In other 
words, the first heading’s contents for 
every record are placed in memory. 
The CH variable keeps track of which 
heading is the current one. If a sort or 
search is done on a different field, that 
field’s contents for every record are 
read in using this same routine. 

The add and change records routines 
share a common input data subroutine 
(lines 1710-1730). If, when a record is 
being added (line 1600), available file 
space (RA) has been filled, a new block 
of space is created by calling the 
routine at line 1070. The variable IO is 
set to 9 so that the file is opened in the 
append mode. In the change record 
section the variable CS is checked to 
see if any changes were made to the 
current record. If so (CS = 0), then the 
subroutine at line 1140 is called to 
rewrite the record at the same location 
on the disk from which it was read. 

In the delete and sort records 
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routines the real beauty of random ac¬ 
cess is seen in action. When a record is 
deleted from the database it is not 
removed from the disk. Instead, the 
pointer to that record’s disk space is 
moved to the end of the P$ pointer 
string (line 1900) so that the deleted 
record’s disk space can be made 
available for new records. In the sort 
routine, whenever the sort field is mov¬ 
ed around, the corresponding pointers 
in the P$ string are moved around too. 
In effect, the records are never moved 
on the disk — only the pointers get 
sorted! 

Data is automatically saved when 
you quit the program. (Don’t exit the 
program any other way than the Q 
menu option!) If you want to save a 
copy of your file in the midst of work¬ 
ing, the save option will save a copy of 
your current heading and pointer file. 
The data itself is always saved 
automatically, immediately after it is 
entered or changed. 

Running The Database 

The first choice you will have is 
whether to initialize a new file or load 
an existing file. The first time you use 
it, you’ll have to initialize a file. 
Thereafter, when you want to access 
that data, you will load the file. 
Anytime you want to create a new file 
with a different type of data, you’ll use 
the initialize option. Several different 
files will fit on a disk and you can use 
as many different data disks as you 
like. A few examples of files would be 
a mailing list (name, address, city, 
etc.), checkbook list (to whom, 
withdrawals, deposits...), and an in¬ 
ventory list (stock number, description 
number, in stock, on order, etc.). 
Whatever records you want to keep can 
usually be stored in this type of 
database format. 

To initialize a new file, you must 
give your file a name, then tell the com¬ 
puter how many headings .you want 
and the names and lengths of the 
headings. An example would be a file 


named “Addresses,’’with six headings: 
Name, Street Address, City, State, Zip 
Code, and Phone Number. You might 
want to add an extra heading (or more) 
for some kind of code. I might use 
“Computer” for my seventh heading, 
so I would know what kind of com¬ 
puter a particular person owns. 

Your data will be organized into 
what you can picture as a table. The 
headings should be your column 
headings, and each row would have 
one set of information across those 
headings. A set of such information is 
called one record. Once a file has been 
created, any future time that you use 
the database you only have to give the 
file name (“Addresses” is our ex¬ 
ample) and all the information will 
automatically be loaded from disk. 

The Main Options 

After initializing or loading, you are 
given a list of choices for manipulating 
your database. Here are the choices in 
brief form: 

(S) SAVE current data 

(P) PRINT data (to screen or printer) 
(A) ADD new data 

(C) CHANGE some of your data (such 
as an address change) 

(D) DELETE a record 

(T) SORT 

(F) FILE names - catalogs the disk 
(N) NEW data file - equivalent to quit¬ 
ting and re-running program) 

(Q) QUIT - done (don’t use any other 
method to get out or you may lose 
data) 

Adding A Record 

This is your logical first choice since, 
with no data in memory, the other op¬ 
tions aren’t too useful. Choose (A) 
from the options page and you’ll be 
asked for information to fill each of 
your headings for one record. After 
you’ve filled one record, you’ll be 
returned to the options page. Because 
of disk limitations, commas, colons, 
and semicolons don’t work in the data. 
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Also see the note below about sear¬ 
ching and sorting numeric fields. 

Printing A Record 

To see if your data is really there, 
type “P” to print your record. The 
program will ask if you want it put in a 
special format (S) or default format 
(D). Choose (D) for the moment. After 
choosing, you’ll be asked if you want it 
on the scfeen (S) or the printer (P). 
Then, after that choice, a list of 
headings will be displayed, followed by 
the choices “Begin” and “Return to 
Menu.” Type the number next to the 
word “Begin,” and press RETURN. 
Each record you have in memory will 
be displayed in sequence. If you’re 
printing them to the screen, pressing 
any key advances to the next record. 
The ESC key returns you to the option 
page. All the other choices mentioned 
above will be explained under 
“searching” and “formatting.” 

Searching 

When printing, changing, or deleting 
records, you have the choice of selec¬ 
ting individual items, subsets of your 
data, or the entire set of data. This is 
done through the search routine. When 
you used the print routine above, you 
chose to print all the data by selecting 
“Begin” before any other choice. Each 
of the headings is also listed at that 
point, along with “Record Number.” 
By choosing the number beside any of 
the headings or “record number,” you 
elect to do a search under that heading. 
You are then asked if you want to look 
for an item that is less than or equal to, 
equal to, or greater than or equal to a 
value you’ll give. After choosing 1, 2, 
or 3, respectively, you’ll be asked for a 
value for comparison. Example: If you 
want to search for all records with 
names starting with A through G, you 
would want NAME,choice 1,G, where 
“G” is the value used for comparison. 
If you want all records from number 20 
through the end of the file, you would 


choose RECORD NUMBER,choice 
3,20. 

You also have the option of specify¬ 
ing the beginning of a value for com¬ 
parison. If you wanted all records from 
people whose ZIP code starts with a 
“60” (as 60185), you can specify ZIP 
CODE,choice 2,60*. The asterisk says 
that anything may follow. This is also 
an easy way to find records without 
knowing exact information. If you 
can’t spell Pelczarski, you can try 
“PEL*” and you’ll find the record. 

To start the actual search, you must 
choose “Begin.” A hidden option here 
is that you may specify several search 
criteria (up to 8). I might, for example, 
want to find everyone in my list whose 
ZIP code begins with “60” and who 
owns an Atari. I would specify ZIP 
CODE,equal to,60*; then I’d specify 
COMPUTER,equal to, ATARI. Then I 
would choose “Begin.” Having done 
this, I’d be asked if I want the item to 
meet all of the conditions or any of 
them. If I choose “all,” I would find 
only those people who both own an 
Atari and have a ZIP code beginning 
with “60.” “Any” would give me all 
Atari owners plus all the people in ZIP 
code “60.” 

Changing Records 

To change a record, choose (C) from 
the options menu. After you specify 
the search criteria you want, if any, the 
appropriate records will appear on the 
screen. The items under each heading 
will then be shown in sequence, and the 
program will wait for you to strike 
“K” to keep, “C” to change, or “R” 
to keep the remainder of the record. If 
you strike “C,” you’ll be asked to pro¬ 
vide the new information. 

Deleting Records 

After choosing (D) from the options 
menu, and going through the search 
steps, the records in question will be 
displayed, and you’ll have to verify 
that you want to delete the particular 
record, because, once deleted, a record 
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is gone forever. Strike the “Y” key to 
delete. 

Saving a File 

When you want to sign off for the 
day, just choose the (Q) option; your 
file is automatically saved, and the pro¬ 
gram will end. The (S) option will save 
your current file, but will not end the 
program. It is a good idea to save im¬ 
portant information on two separate 
disks, using one as a backup. 

Sorting 

The (T) option of the menu allows 
your items to be sorted in ascending or 
descending order, under any heading. 
Alphabetic items are sorted 
alphabetically, and numeric items are 
sorted as strings. This means that 
numbers won’t always come out the 
way you want. 125, 34, and 7 will come 
out in that order because strings are 
sorted according to their first 
character. To get a correct numeric 
sort, you must add leading zeroes to 
the maximum number of places, so 
that all the numbers in your file are the 
same length. In our example, you 
should use 007, 034, and 125; these 
values will sort properly. 


you can’t mix records across a page. 
Another limitation is that there is no 
way to print a one-time heading. 

But let’s move on to what the for¬ 
matter can do. You can specify which 
headings shall be printed, and where, 
as well as additional character strings 
that are not stored as part of your 
database file (examples of these might 
be your company name or an expanded 
version of a heading, rather than the 
heading itself). 

To create a format, choose the 
special-format option when printing. 
You’ll be asked if you want to load or 
create one. Naturally, the first time, 
you’ll have to create it. Draw out ex¬ 
actly what you want printed for your 
form. You’ll be telling the computer, 
line by line, what it looks like. Your 
choices are (1) Heading, (2) Item, (3) 
Tab, (4) Next line, (5) String, and (6) 
End. Here’s one example using the 
“ADDRESSES” file I mentioned 
earlier. The format will print mailing 
labels like this: 

Mark Pelczarski 
1206 Kings Circle 
West Chicago IL 
60185 


Disk Directory 

Menu option (F) will show you the 
filenames of the files on your disk. 


Here are the format commands 
(numerically, my headings are 1 Name, 
2 Address, 3 City, 4 State, 5 ZIP, 6 
Phone, 7 Computer): 


Switching Data Files 

You can load or create a new file 
without rerunning the program by 
selecting menu option (N). Be sure to 
verify that your current file has been 
saved. 

Formatting Output 

This program’s formatter may well 
be the most versatile around. Although 
it can’t do everything, it does much 
that “professional” database 
managers cannot. Basically, you can 
specify the exact form in which you 
want each record printed. Each record 
is printed in sequence, meaning that 


Commands 

What To Type 

Item, Name 

2, 1 

Next Line, 1 

4, 1 

Item, Address 

2, 2 

Next Line, 1 

4, 1 

Item, City 

2, 3 

Tab, 16 

3, 16 

Item, State 

2, 4 

Next Line, 1 

4, 1 

Tab, 12 

3, 12 

Item, ZIP 

2, 5 

Next Line, 3 

4, 3 

End 

6 

The “1” after the next line means to 

skip down one line. The 

: “3” at the end 
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skips down three lines before printing 
the next label. Note that none of the 
actual headings is used in this format, 
nor is the phone number. 

Another example is a format that 
will print a separate little form for each 
person in the database. This is what I’ll 
have printed: 


THIS PERSON HAS AN 

ATARI 

NAME JOE TATE 
PHONE 555-1212 


Here’s the format to do it: 

String, - 

T inp 1 

String, THIS PERSON HAS AN 
Next Line, 2 
Tab, 9 


Item, Computer 
Next Line, 2 

Heading, Name (Hdg. #1) 

Tab, 7 

Item, Name (Item #1) 

Next Line, 1 

Heading, Phone (Hdg. }6) 

Tab, 7 
Item, Phone 
End 

I’ll let the top line of the next item to be 
printed be the bottom line for the 
previous item, so I can just end the for¬ 
mat after printing the last item. 

That’s all there is to formatting. 
Play around with it a bit to see what it 
does for you. After a format is created, 
you’ll be asked to name it; it will 
automatically be saved to disk. Later, 
you’ll be able to load it by name when 
you need it. 


SS SS SS SS SS SS SS SS SS SS SS 


SS 


SS 

SS 

Atari BASIC 

SS 

SS 

'Database IT 

SS 
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SS 

SS 

Copyright (c) 1982 
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SS SoftSide Publications, Inc SS 
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110 N0=0;Nl=1;N2=N1+N1:N3=N1+N2:N4=N2+ 
N2:N6=N3+N3:N7=N1+N6:N8=N6+N2:N14=N8+N 
6 : N17=N14+N3;N125=125:CL=13: Rft=N0 
120 DIM fi$(260):DIM FI$(N14),FN$(N8),F 
H$(N14),FMT$(N14):CH=N0:DL=156 

130 DIM Cl(N7!,C2(N7},F$(400),Bt(100), 
C$(100):NI=-N1:FI$="D:“:FH$=”D: M 

131 DIM SRT$(215):FOR I=Ni TO 215;REAB 
ft:SRT$(I)=CHR$(ft):NEXT I 

132 DATA 104,201,5,240,15,168,240,5,10 
4,104,136,208,251,132,213,169,1,133,21 
2,96,104,133,216,104,133,215,104 

133 DATA 141,251,6,104,141,250,6,104,1 


04,133,218,104,133,213,104,133,212,104 
,104,133,217,169,0,133,209,133,214 

134 DATA 162,1,165,215,133,205,165,216 
,133,206,173,250,6,133,222,173,251,6,1 
33,223,24,165,205,133,203,101,218 

135 DATA 133,205,165,206,133,204,105,0 
,133,206,24,165,222,133,220,105,3,133, 
222,165,223,133,221,105,0,133,223 

136 DATA 164,207,169,1,208,2,208,188,1 
97,217,240,10,177,205,209,203,144,21,2 
40,12,176,55,177,205,209,203,144 

137 DATA 49,240,2,176,7,196,208,176,41 
,200,144,219,169,1,133,209,164,218,136 
,177,205,72,177,203,145,205,104 

138 DATA 145,203,192,0,208,241,160,3,1 
36,177,222,72,177,220,145,222,104,145, 
220,192,0,208,241,232,224,0,208 

139 DATA 2,230,214,228,212,208,134,165 
,213,197,214,208,128,165,209,201,0,208 
,162,169,0,133,212,133,213,96 

140 OPEN IN2,N4,NO, "K:“:GRAPHICS N0:SE 
TC0L0R N2,CL,N4:SETC0L0R N4,CL,N4:GOTO 

290 

150 FOR W=N1 TO 400:NEXT W:RETURN 
160 REM GET RANDOM ACCESS POINTER 
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170 SEC=ASC(P*(RIN3+N1,RIN3+N1))1256+A 
SC !P$(RJN3+N2,RIN3+N2)):BYT=ASC(P$(RtN 
3+N3,R*N3+N3)) 

180 POINT iNl,SEC,BYT:RETURN 

190 TI$=" ":TI$(B(NH+N1)-N2)=" “:TIi(N 

2)=TH:RETURN :REM BLANK RECORD 

200 POSITION N6,22:FNf='"':? CHRi(DL);" 
ENTER FILE NAME "j:INPUT FN$:IF FN$=“” 
THEN 240 

210 IF FNi(Nl,N1)<"ft" OR FN$(N1,N1)>"Z 
" THEN 240 

220 FI$(N3!=FN$:FI$(LEN(FI$)+N1)=\ DAT 

":FOR I=N1 TO LEN(FN$):IF FN$(I,I)="." 
THEN 240 

230 NEXT I;Fh'$ !N3) =FNI: FHI (LEN(FH$) +N1 
)=\HDG":RETURN 

240 POSITION N6=22:? CHR$(SL); 11 INVALID 

NAME" :;BOSUB 150: GOTO 200 

249 REN Lines 250-260: Replace lower 
case with the corresponding control 
character. 

250 ? CHR$(125);"brrrrrrrrrrrrrrrrrv 
FILE: ";FN$ 

260 ? "bit DATABASE II «v RECS: ”;N 
I+Nl:? “brrrrrrrrrrrrrrrrrv"; 

270 IF Rfi>N0 THEN ? " FREE: ";MX-NI- 
Nl; 

280 ? :? :? :RETURN 

290 FNt="NONE":BOSUB 250:? “(I) INITIA 
LIZE A NEW FILE" 

300 ? “CL) LOAD A SAVED FILE?":? :? "S 

ELECT? :GET #N2,A:IF CHR$(A)="I" THE 

N BOSUB 860:GOTO 340 

310 IF CHR$!A)< >"L" THEN 290 

320 BOSUB 600: IF J.J=N0 THEN 290 

330 GOSUB 200:BOSUB 720 

340 IF JJ>N0 THEN 360 

350 ? :? "FOR WARM RESTART: GOTO 360": 

STOP 

360 TRAP 360:CLOSE IN3:GOSUB 250:? “iS 
) SAVE CURRENT FILE 1 ' 

370 ? “(P) PRINT DATA" 

380 ? "(A) ADD DATA" 

390 ? “(0 CHANGE A RECORD" 

400 ? "(D) DELETE A RECORD" 


410 ? "(T) SORT" 

420 ? "(F) LIST FILE NAMES" 

430 ? "(NS START NEW FILE" 

440 ? “(G) QUIT":? 

450 ? :? :? " SELECT 
460 GET #N2, A:? CHRKA) 

470 IF CHR$!A)="S" THEN GOSUB 1180:GQT 
0 360 

480 IF CHRt(A)="P“ THEN GOSUB 1280:G0T 
0 360 

490 IF CHR$(A)=“A" THEN GOSUB 16OO.-G0T 
0 360 

500 IF CHR$(A)="C" THEN SB=N3:GQSUB 21 
80:GOTO 360 

510 IF CHRI(A)="D" THEN S8=N4:FS=N1:G0 
SUB 2180:GOTO 360 

520 IF CHRf(A)="T" THEN GOSUB 1970:GQT 
0 360 

530 IF CHR$(A)="F" THEN GOSUB 600.-G0T0 
360 

540 IF CHR$(A)="Q” OR CHR$(A)="N" THEN 
560 

550 GOTO 360 
560 IF SS THEN 580 
570 GOSUB 1180 

580 CLOSE INI:IF CHR$!A)="N“ THEN CLR 
: RUN 

590 TRAP 40000:GRAPHICS NO:END 
600 POSITION N2.16:? CHR$(DL);"DATA FI 
LES:":TRAP 610:0PEN 4N3,N6,N0,"D:*.DAT 
B :GOTO 620:JJ=NO 

610 POSITION N4,20:? " CAN’T READ DISK 
DIRECTORY.":CLOSE 4N3:GOSUB 150:RETURN 
620 INPUT !N3,A$ 

630 FOR I=N17 TO 20:FOR J=N2 TO 29 STE 

P 9:IF LEN(A$XN17 THEN 680 

640 POSITION J,I:? A$!N3,10):JJ=JJ+N1: 

INPUT #N3 S A$:NEXT J:NEXT I 

650 IF LEN(A$XN17 THEN 680 

660 POSITION 8,23:? "PRESS RETURN FOR 

MORE ";:GET 4N2,A 

670 FOR 1=23 TO N17 STEP -N1:P0SITI0N 
NO,I:? CHR$(DL!j:NEXT I:GOTO 630 
680 TRAP 360:IF JJ=N0 THEN ? :? " NO DA 
TA FILES IN DIRECTORY ";:GOSUB 150 
690 CLOSE IN3:POSITION N6,23:IF CHR$(A 
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)<> H L" THEN ? “PRESS RETURN TO CONTINU 
E ";;GET #N2,A 
700 RETURN 

710 REM LOAD SUBROUTINE 

720 JJ=Ni:GOSUB 250:? :? “ LOADING ”;FN 

t ):TRAP 840:OPEN IN3,N4,N0,FH$ 

730 INPUT #N3,NH,NI,HL,IL,MX,BLK,R6 
740 DIN Hi(HLt(NH+1!),B(NH+1),1$(MXtIL 
+N1),P$!MX?N3),T$(NHIIL+IL) 

750 FOR I=NO TO NH+N1:INPUT #N3,J:B(I) 
=.J:NEXT I:DIM TI$!B!NH+1)-N1): 1$=' “:I 
$(MX!IL-N1)=" ":It(N2)=I$:SES=Nl 
760 INPUT SN3,A$:IF LEN(A$)=N0 THEN 78 
0 

770 H$!SEG!=A$:SEG=SEG+250:GQT0 760 
780 INPUT #N3jPL:FOR I=N1 TO PL:GET #N 
3,BYT:PI(I)=CHRi(BYT!:NEXT I 
790 CLOSE #N3:OPEN #N1,12,NO,FI$:BQSUB 
820 

800 SS=Ni:RETURN 

810 REN READ ITEMS UNDER HEADING CH 
820 S=B(CH);E=B(CH+N1)-Nl:L=E-S+N1:FOR 
I=N0 TO NI:R=I:GQSUB 170:INPUT #Nl f TI 

$ 

830 I$(IIL+N1,ISL+L)=TI$!S,E):NEXT I:R 
ETURN 

840 ? CHRf(156):CHR$(253);" DISK ACCESS 
ERROR 1 ';:CLOSE UNI:CLOSE #N3:JJ=N0:G0S 
UB 150:POP :BOTO 340 
850 REM INITIALIZE SUBROUTINE V.2 
860 GOSUB 200 

870 GOSUB 250;? ;? "HON MANY HEADINGS 
:TRAP 870:INPUT NH:IF NHCNl THEN 870 
880 ? :? "ENTER MAXIMUM HEADING LENGTH 
"j-.TRAP 880: INPUT HL: IF HLCNl THEN 88 

0 

890 TRAP 1120;DIM H$!HL*NH),B!NH):NH=N 
H-N1:NI=-N1:H$='" , :B!0)=N1: IL=NO: GOSUB 
250 

900 FOR 5=N0 TO NH 

910 ? :? "HEADING #";I+N1; H INPUT 
A$:J=LEN(Ai):IF J>HL THEN ? "MAXIMUM L 
ENGTH IS ";HL;“, REENTER":GOTO 910 

915 IF J=N0 THEN 910 

920 IF LEN(AIXHL THEN Ai!LEN!AI)+Nl)= 

" ":GOTO 920 


930 TRAP 930:? "MAXIMUM LENGTH OF ";Ai 
(N1,J):INPUT J:TRAP 1120:B!I+i)= 

B(I)+J!IF J)IL THEN IL=J 
940 H$(LEN(H$)+N1)=A$:NEXT I 
950 MX=INT((FRE(0!-2000)/(IL+N3!i:TRAP 
840:OPEN IN3,6,N0,"D:M":REM FIND SP 
ACE ON DISK 

960 INPUT IN3,A$:IF LEN(A$!(N17 THEN 9 
80 

970 GOTO 960 

980 CLOSE #N3:TRAP 1120; FREE=VAL(At!N1 
,3))YN125-((NH+1)JHL):FREE=INT(FREE/SB 
(NH+1)+N3));IF FREEXHX THEN MX=FREE 
990 GOSUB 250:? "DISK SPACE REPORT:" 

1000 ? :? "DATABASE CAPACITY = ";MX; n 
RECORDS":LRECL=B(NH+N1):BLK=50:L0=N125 
:HI=BLK:IF HI)HX THEN HI=MX 
1010 FOR I=HI TO N1 STEP -HI:IF LRECU 
KSEC THEN 1030 

1020 FREE=LRECLtI/N125-INT(LRECLtI/N12 
5):IF FREECLQ THEN LO=FREE:BLK=I 
1030 NEXT I:? :? "BLOCK SIZE = "fBLK;“ 
RECORDS." 

1040 ? :? "SECTORS/BLK = INTfBLKILRE 

CL/N125+0.5):BOSUB 150 

1050 DIM I$(MX»IL+N1),P$!MX*N3),TI$(B( 

NH+l)-Nl),T$!NHtIL+IL):I$=" ":I$(MX1IL 

-Nl)=” ":It(N2)=1$:GOSUB 150 

1060 10=8:R=N0:E=BLK-N1:GOSUB 1070:JJ= 

Nl:RETURN 

1070 GOSUB 190:TRAP 840:? :? :? "ONE M 

OMENT...ALLOCATING DISK SPACE":? “FOR 

RECORDS ”;R+1;“ TO ";E+1 

1080 CLOSE #N1:OPEN ONI,IO,NO,Fit:FOR 

I=R TO E;NOTE #N1,SEC,BYT:HI=INT(SEC/2 

56):L0=5EC-HIt256:S=ItN3 

1090 P$(S+Nl,S+Nl!=CHRt(HI):Pf(S+N2,S+ 

N2)=CHR$(LO): Pi (S+N3,S+N3!=CHRt(BYT) 

1100 PRINT INljTII:NEXT I:CLOSE #N1:0P 
EN #N1,12,N0,FI$:RA=E 
1110 SS=NO:RETURN 

1120 ? :? " ERROR - FILE NOT INITIALIZE 
D":JJ=NO:GOSUB 150:RETURN 
1130 REM NRITE RECORD R FROM Tit 
1140 TRAP 840:GOSUB 170;PRINT #NI;TIt; 
TRAP 360:RETURN 
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1150 REM READ RECORD R INTO TI$ 

1160 TRAP 840:R=I:GOSUB 170:INPUT (Nl, 

TI4:TRAP 360:RETURN 

1170 REM WRITE HDG FILE 

1180 JJ=N1:GOSUB 250:? :? " SAVING H ;FN 

t;:TRAP 840:OPEN #N3,N8,N0,FH$ 

1190 PRINT #N3;NH:PRINT #N3jNI:PRINT i 
N3;HL:PRINT #N3|IL.-PRINT #N3;MX:PRINT 
*N3;BLK:PRINT #N3;RA 
1200 FOR I=N0 TO NH+N1:PRINT #N3;B(I): 
NEXT I:SEG=N1 

1210 IF LEN(H$K=SEG+249 THEN PRINT #N 
3;H$(SEG,LEN<H$1):GOTO 1240 
1220 PRINT #N3;(SEG,SEG+249):SEG=SEG 
+250:IF SEG>LEN(Hf) THEN 1240 
1230 GOTO 1210 

1240 PRINT #N3;" H, .PL=LEN(P$!:PRINT «N3 
5 PL 

1250 FOR I=N1 TO PL:BYT=ASC(P$(I)):PUT 
#N3,BYT:NEXT I 
1260 CLOSE #N3:SS=N1:RETURN 
1270 REM PRINT SUBROUTINE VERS,3 
1280 FS=N1:IF NI=-N1 THEN GOSUB 2850:R 
ETURN 

1290 GOSUB 250:? “FORMATTED OUTPUT? (Y 
/Ni ";:GET #N2,A:? sIF CHRt(A)="Y“ THE 
N GOSUB 2870:TRAP 360;FS=N2:GOTO 1320 
1300 IF CHR$(AK>"N" THEN 1280 
1310 FS=N1:GOTO 1330 
1320 IF FS=N2 AND Ft=“‘ THEN 1280 
1330 GOSUB 250:SB=N1:? "(S) SCREEN or" 
:? "(F) PRINTER ?";:GET #2,A:? :IF CHR 
t(A)=“P" THEN SB=N2:GOTO 1350 
1340 IF CHR$(A)(>“S" THEN 1330 
1350 GOSUB 2190:CLOSE #N3:POKE 752,NO: 
RETURN 

1360 REM PRINT ONE RECORD VERS. 4 
1370 ? CHR$!125);:GN FS GOSUB 1430,146 
0:POSITION N2,22:? "PRESS RETURN (ESC 
FOR MENU)"; 

1380 GET #N2,A:IF A=27 THEN RS=N1 
1390 RETURN 

1400 REM PRINT ONE RECORD TO PRINTER, 
VERS,4 

1410 ON FS GOSUB 1420,1460:RETURN 


1420 IF SB=N4 THEN ? CHR$!125); 

1430 PRINT #N3:PRINT #N3; "RECORD, ";I+N 
1:PRINT #N3:FOR J=N0 TO NH:S=B!J):E=B( 
J+D-Nl 

1440 PRINT #N3;Ht(JtHL+Nl,JtHL+HL);“ " 

;TI$(S f E):NEXT J:RETURN 

1450 REM PRINT ONE FORMAT 

1460 J=N1:T=N0:B$='":IF F$(LEN(F$))<>“ 

6" THEN F$(LEN(F$))="6“ 

1470 Jl=VAL(Ft(J,J)):J=J+N1:IF Jl<5 TH 
EN N=VAL(Ff(J,J+N1!):J=J+N2 

1480 ON J1 GOTO 1490,1500,1510,1520,15 
40,1590 

1490 A$=H$(NIHL+N1,NiHL+HL):GOTO 1570 
1500 S=B(N):E=B(N+Nl)-Nl:L=E-S+N1:A$=T 
1$(S,E):GOTO 1570 

1510 FOR QQ=N1 TO N:B$(LEN(B$)+N1)=" " 

:NEXT QQ:GOTO 1580 

1520 PRINT #N3;B$:IF N>N1 THEN FOR J2= 

N2 TO N:PRINT #N3:NEXT J2 
1530 B$="'':GOTO 1580 
1540 J2=J 

1550 IF FKJ2,J2)<>”!“ THEN J2=J2+N1:G 
OTO 1550 

1560 A$=F$(J,J+(J2-J1-N1!:J=J2+N1 
1570 B$(LEN(B$!+N1)=A$ 

1580 GOTO 1470 
1590 FRINT #N3;B$:RETURN 
1600 SS=N0:IF NI+N1=NX THEN ? :? " FILE 
IS FULL ":GOSUB 150:RETURN 
1610 R=NI+N1:IF R<=RA THEN 1640 
1620 GOSUB 250:E=RA+BLK:IF E>MX-N1 THE 
N E=MX-N1 

1630 10=9:GOSUB 1070 
1640 GOSUB 250:? :? "RECORD NUMBER “;N 
I+N2;“ (ENTER ! TO END)":? :? :FQR J= 
NO TO NH:GOSUB 1710 

1650 IF A$(Nl,Nl)=“i“ THEN J=NH:NEXT J 
:RETURN 

1660 NEXT J:NI=NI+N1 

1670 GOSUB 1140:S=B(CH!:E=B(CH+N1)-Nl: 

L=E-S+N1 

1680 I$(NUL+Nl,NItL+L!=TI$(S,E! 

1690 GOTO 1600 ' 

1700 REM DATA INPUT SUBROUTINE VER3.1 
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1710 ? HttJtHL+1,JtHL+HL);* : a j:INPUT 
A$:S=B(J):E=B(J+l)-N1;L=E-S+N1 
1720 IF LEN(A$XL THEN At(LEN(At)+Nl)= 
B ":BOTO 1720 
1730 TI$(S,E)=ft$:RETURN 
1740 REM CHANGE SUBROUTINE VERS.2 
1750 GOSUB 250:? “(C) CHANGE ITEM, (K) 
KEEP ITEM, 0R U :? "(R) KEEP REMAINDER 
OF RECORD" 

1760 ? :? "RECORD "jI+N1:CS=N1:RS=N0:F 
OR 3=0 TO NH:? :S=B(J):E=B(3+N1)-N1:L= 
E-S+Nl 

1770 ? Ht(JtHL+Nl,JtHL+HL);" : ";TIt(S 

D , B nn , 

I • 1 

1780 IF RS=N1 THEN PRINT :EOTQ 1840 
1790 GET #N2,A:IF CHRt(AX>“C" AND CHR 
t(AX>"K" AND CHRi(AX>"R" THEN 1790 
1800 ? CHR$(A):IF CHR$(A)="K“ THEN 184 
0 

1810 IF CHRt(A)="R" THEN RS=N1:G0T0 18 
40 

1820 POKE 752,NO:GOSUB 1710:POKE 752,N 
1 

1830 CS=NO 

1840 NEXT J:RS=N0: IF CS=NO THEN R=I:GO 
SUB 1140:S=B(CH!:E=B(CH+N1)-N1:L=E-S+N 
l:It(ItL+Nl,ItL+LJ=TIt(S,E) 

1850 RETURN 

I860 REM DELETE SUBROUTINE VERS.2 

1870 ? :POKE 752,NO:? "DELETE THIS REC 
ORD? 

1880 GET #N2,A:IF CHRt (AX>"Y“ AND CHR 
t(AX>"N" THEN 1880 

1890 ? CHR$(A):POKE 752,N1:IF CHRt(A)= 
“N" THEN 1950 

1900 At=Pt(ItN3+Nl,ItN3+N3):Pt(I4N3+N1 
)=P$(I4N3+N1+N3):Pt(RA4N3+N1)=At 
1910 1$(LEN(1$)+N1)=" " 

1920 L=B(CH+N1!-B(CH): 1$(ItL+Nl)=1$(It 
L+L+Nl):IF LEN!It)=Nl THEN It="“:GQTO 
1940 

1930 It=It(Nl,LEN(It)-Nl) 

1940 NI=NI-N1:SS=NO:I=I-Nl 

1950 RETURN 

1960 REM SORT ROUTINE 


)>>)>>)))) 


1970 IF NI=-N1 THEN GOSUB 2850:RETURN 
1980 GOSUB 250:FOR J=NO TO NH:? "(";J+ 

Nl;“) 11 ;Ht(JtHL+Nl, JtHL+HL): NEXT J 
1990 ? :? "SORT NHICH HEADING INPUT 
J1:J1=J1-N1 

2000 IF J1<N0 OR J1>NH THEN RETURN 
2010 IF JIOCH THEN CH=J1:G0SUB 820 
2020 GOSUB 250:? "(A) ASCENDING, OR (D 
) DESCENDIH8":SET IN2,A:IF CHR$(A)="A B 
THEN A=N0:GOTO 2050 

2030 IF CHRt(A)="D" THEN A=N1:G0TQ 205 
0 

2040 GOTO 2020 

2050 ? :? "SORTING...";:POKE 207,N0:P0 
KE 208, L-Nl: T=USR(ADR(SRTt),ADR(It),AD 
R(Pt!,L,NI+Nl,A) 

2160 ? "COMPLETED.":GOSUB 150:SS=N0:RE 
TURN 

2170 REM SEARCH SUBROUTINE, VERS. 2 
2180 IF NI=-N1 THEN GOSUB 2850:RETURN 
2190 I!=N0:I2=NI:J=N0:C1(NO)=-Nl:BS=N1 
:NF=N1 

2200 GOSUB 250:? "SEARCH CRITERIA:":? 

:? "0! RECORD NUMBER" 

2210 FOR I=NQ TO NH:PRINT I+Nl;") ";Ht 
(ItHL+Nl 5 ItHL+HL):NEXT I:? :? NH+N2;") 

BEGIN" 

2220 POSITION N2,20:? "NHICH FIELD: 

.•INPUT I:IF I<NO OR DNH+N2 THEN 2220 

2230 IF I=NH+N2 THEN Cl(J)=-N1:GOTO 23 
70 

2240 Cl(J!-I-Nl 

2250 POSITION N2,21:? "(1) <= (2) 

= (3) >= INPUT A:C2(J!=A:I 

F C21JXN1 OR C2(J!)N3 THEN 2250 

2260 POSITION N2,22:? "VALUE:";:IF Cl( 

J!=-N1 THEN 2310 

2270 PRINT " ";:INPUT At 

2280 IF LEN(AtXIL THEN At(LEN!At)+Nl! 

=" “.‘GOTO 2280 

2290 C$(JtIL+NI,JtIL+IL)=At:J=J+NI:IF 
J>N7 THEN 2380 
2300 GOTO 2200 

2310 PRINT " a j i INPUT I: IF KNi OR I>N 
I+Nl THEN 2310 
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2320 I=I-N1 

2330 IF C2(J)=N1 THEN 12=1 

2340 IF C2{J)=N2 THEN 11=1:12=1 

2350 IF C2(J)=N3 THEN 11=1 

2360 GOTO 2200 

2370 IF J<N2 THEN 2400 

2380 POSITION N2,21:? CHR$(DL);“1) ITE 

H MUST MEET ALL CONDITIONS":? CHR$(DL) 

;"2) ITEM MAY MEET ANY CONDITION ";:IN 

PUT BS 

2390 IF 8SCN1 OR BS)N2 THEN 2380 

2400 RS=N0:J1=C1(NO):DS=N0:FOR J=NO TO 
7:IF Cl(J!=-N1 THEN J=7:G0T0 2420 
2410 IF JIOCKJ) THEN Jl=-N2 
2420 NEXT J 

2430 IF J1>-N1 AND JIOCH THEN CH=J1:G 
OSUB 320 

2440 IF Jl=-N2 THEN DS=N1 

2450 TRAP 2480:IF SB=N2 THEN OPEN #N3, 
NS,NO,"P:":TRAP 360:GOTO 2490 
2460 OPEN #N3, N8, NO, "E:": POKE 752,111: T 
RAP 360:SETCOLOR N2,CL,N4:SETCOLOR N4, 
CL, N4 

2470 POSITION N2,22:? " SEARCHING,. 

GOTO 2490 

2480 CLOSE #N3:? "PRINTER NOT ON LINE" 
■.GOTO 2840 

2490 I=I1-N1:FOR 19=11 TO 12:I=I+N1 

2500 IF DS=NO THEN S=B(CH):E=B(CH+N1)- 

N1:L=E-S+N1:TI$(S,E!=I$(ISL+N1,IiL+L): 

GOTO 2520 

2510 GQSUB 1160 

2520 AS=NO:FOR J=NO TO N7 

2530 IF Cl!J!=-N1 THEN J=N7:GOTO 2720 

2540 S=B(Cl!J)):E=B(Cl!J)+N1!-N1:L=E-S 

+N1:B$=C$(JIIL+Nl,JIIL+L):A$=TI$(S,E) 

2550 FOR T=L TO N1 STEP -Nl:IF A$(T,T1 
=" " THEN NEXT T:A$="":GQTQ 2570 
2560 A$=A$(N1,T) 

2570 FOR T=L TO Nl STEP -Nl:IF B$!T,T) 
=“ " THEN NEXT T:Bi="":GOTQ 2590 
2580 BI=B$!N1,T) 

2590 ON C2!Ji GOTO 2600,2620,2670 
2600 IF A$<=B$ THEN 2690 
2610 GOTO 2710 


2620 IF A$=B$ THEN 2690 

2630 IF T=N0 THEN 2710 

2640 IF BI(TK>"I“ THEN 2710 

2650 IF A$(N1,T-N1)=B$(N1,T-N1) THEN 2 

690 

2660 GOTO 2710 

2670 IF A$>=B$ THEN 2690 

2680 GOTO 2710 

2690 IF BS=N2 THEN AS=N1:J=N7 
2700 GOTO 2720 

2710 IF BS=N1 THEN AS=N2:J=N7 
2720 NEXT J 

2730 IF AS=N0 AND BS=N1 THEN 2750 
2740 IF AS=NO OR AS=N2 THEN 2810 
2750 IF DS=NO THEN GOSUB 1160 
2760 NF=0:IF SB=1 THEN GOSUB 1370 
2770 IF SB=N2 OR S8=N4 THEN GOSUB 1410 
2780 IF SB=N3 THEN GOSUB 1750 

2790 IF SB=N4 THEN GOSUB 1870 

2800 IF RS=N1 THEN 19=12 

2810 POSITION N2j22:? “ SEARCHING... 

"I:NEXT 19:POKE 7 

52,NO:IF RS THEN RETURN 

2820 IF NF THEN POSITION N2,22:? " NQ M 

ATCHES FOUND ...";:GOTO 2840 

2830 POSITION N2,22:? "END OF FILE..." 

ft 

j 

2840 ? CHR$(253);"RETURN FOR MENU"j:GE 
T IN2,A:RETURN 

2850 ? CHRf(253);"NQ DATA IN MEMORY,' 1 : 
GOSUB 150:RETURN 
2860 REM PRINT FORMATTING, V.l 
2870 GOSUB 250:IF F$="“ THEN 2900 
2880 ? "SAME FORMAT? ";:GET IN2,A:PRIN 
T :IF CHR$(A)="Y" THEN RETURN 
2890 IF CHR$(AX>"N" THEN 2870 
2900 ? "(L! LOAD FORMAT or":? "(0 CRE 
ATE FORMAT ";:GET IN2,A:? :IF CHR$(A)= 
"C" THEN 2970 

2910 IF CHR$(AK>"L" THEN 2870 
2920 F$= u ":GOSUB 3180:IF FMT$="D:“ THE 
N RETURN 

2930 TRAP 2950:OPEN #N3,N4,N0,FMT$ 

2940 INPUT #N3,NF:FOR J=NO TO NF:INPUT 
IN3,A$:F$(LEN!F$!+N1)=AI:NEXT J:GOTO 
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2960 

2950 ? “FORMAT ";FMT*;" NOT FOUND";60S 
!JB 150: FMT$= M " :F$="" 

2960 CLOSE IN3:RETURN 
2970 TRAP 2970:NF=NO:J=NO:F*="":60SUB 
250:? “START IN THE UPPER LEFT CORNER 
AND":? “WORK ACROSS EACH LINE.":? 

2980 ? "1 SHEADING*:? “2:ITEM":? "3:TAB 
“:? "4:NEXT LINE":? "5:STRING”:? “6:EN 
D“:? 

2990 INPUT Ji.'IF JKNl OR J1 >N6 THEN 2 
990 

3000 F$(LEN (F$) +N1)=STR*(J1):J=J+N1 
3010 ON J1 SOTO 3020,3020,3050,3050,30 
90,3110 

3020 GOSUB 250:FOR T=N0 TO NH:PRINT T+ 
N1;“) “;H*(TtHL+Nl,TtHL+HL):NEXT T 
3030 ? :? “WHICH? H ;:INPUT T:T=T-N1:IF 
TCNO OR T)NH THEN 3030 
3040 GOTO 3060 

3050 ? “HOW MANY? INPUT T:IF TON 0 
R T>99 THEN ? “OUT OF RANGE.":GOTO 305 
0 

3060 A$=STR$(T);IF TOO THEN A*=“0“:A* 
(LEN(A*)+N1)=STR*(T) 


3070 F*(LEN(F*)+N1)=A$:J=J+N2 
3080 GOTO 3100 

3090 ? "STRING; INPUT At:Af(LENTA*) 
+N1)="!“:F*(LEN(F*)+N1)=A*:J=J+LEN(A*) 
3100 GOSUB 250:GOTO 2980 
3110 TRAP 3170:GOSUB 3180:IF FMT*=“D:“ 
THEN F*=“":RETURN 
3120 OPEN (tN3,N8,N0,FHT* 

3130 PRINT #N3; INT1 (LEN(F$) -N1) /250) 
3140 FOR J=NO TO INT((LEN!F*)-Nl)/250! 
;IF LEN(Ff)<J4250+250 THEN ? tN3;FI(JJ 
250+N1,LEN!F$)):GOTO 3160 
3150 PRINT #N3;F*(J1250+N1,JI250+250): 
NEST J 

3160 CLOSE #N3:RETURN 

3170 ? "FORMAT OUTPUT ERROR":GOSUB 150 

:CLOSE #N3:RETURN 

3180 GOSUB 250:FMTI=“D:":? "ENTER FORM 
AT NAME ";:INPUT A*:J=LEN(A*):IF J<Ni 
THEN RETURN 

3190 FOR I=N1 TO J:IF A*(1,1)=“." THEN 
? :? “INVALID NAME":GOSUB 150:GQT0 31 
30 

3200 NEST I:FHT*(N3)=A*;FMTI(J+N3)=".F 
NT'■.RETURN 
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by Jon Voskuil 


Microtext 1.2 is a word-processing 
program for an Atari with 16K RAM. 
A printer is desirable. 

Upon running, Microtext L2 
displays a mostly blank screen with an 
instruction summary line at the 
top. You can either start typing, or load 
a previously saved file from disk or 
tape. 

Holding down CTRL, and then 
pressing S, L, R, P, or E, will access 
the save, load, review, printout, or edit 
functions. Although not mentioned in 
the command summary on the screen, 
pressing CTRL-Q will quit the 
program. 

Saving and loading files is simply a 
matter of answering the questions 
about the medium to be used (tape or 
disk) and, if disk, the file name. Once 
you have entered a file name, it will be 
used as the default until you specify 
another one or exit the program: Just 
press RETURN when asked for the file 
name. This simplifies repeated saves 
during entry of a long document. 

The review function causes the com¬ 
puter to return to the beginning of the 
text in memory and scroll through it to 
the end. During this scrolling, you can 
press any key to pause. Then, pressing 
the spacebar will cause one or more 


lines to be displayed; pressing 
RETURN will cause the scrolling to 
continue; and pressing E will enter the 
editing mode. 

In the editing mode, you can move a 
cursor up and down through your text, 
to locate any line which you want to 
edit or delete. This movement is ac¬ 
complished with the up- and down- 
arrow keys. You have four options 
while in the editing mode: Pressing 
ESC will exit to the review mode; 
pressing D will delete the line at the 
cursor; pressing X will delete 
everything from the cursor to the end 
of the text; and pressing RETURN will 
allow you to edit the line at the cursor. 

If you choose to edit a line, the 
screen will first clear, and then display 
a number of lines of text with a gap of 
several lines in the middle. The cursor 
will be positioned at the beginning of 
the line you have chosen to edit, and 
you can proceed to type in a new line to 
replace the old one. The new one can 
be shorter than the original, or may oc¬ 
cupy multiple screen lines. Any part of 
the original line that you want retained 
must be retyped: Whatever you type in 
will replace the entire line. When you 
have finished entering the new text, 
press CTRL-F (not RETURN, unless 
you want a carriage return in the text 
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itself). The computer will determine 
whether the text lines need to be rear¬ 
ranged, and then return you to the 
review mode. 

The printout function allows you to 
send your text to a printer, after se¬ 
lecting margins, and line spacing. 
Pressing RETURN in response to the 
offered options will select the default 
value indicated. 

Program Notes 

The DIMension statement in line 120 
reserves memory for the strings which 
hold the text. The numbers listed work 


for 40K system with DOS booted, but 
will need to be adjusted downward if 
your system has less available memory. 
All REM lines may be deleted without 
affecting the program’s operation, to 
gain more memory space. Many of the 
individual program lines could also be 
squeezed together on multiple-state¬ 
ment lines; this kind of packing has 
been avoided for the sake of clar¬ 
ity, but would increase available 
memory and possibly execution speed. 
Of course, you should first verify your 
typing with SWAT before you make 
any changes. 


ss ss ss ss ss ss ss ss ss ss ss 


ss 


SS 

ss 

Atari BASIC 

SS 

ss 

'Hicrotext 1.2* 

SS 

ss 

Author. 1 Jon R. Voskuil 

SS 

ss 

Copyright (c) 1982 

S3 

SS SoftSide Publications, Inc SS 

SS 


SS 


SS S3 S3 S3 SS SS SS SS SS SS SS 


10 Din CL$(i);CL$=CHR$(125):PRINT CL$ 
15 POKE 752,1 

20 POSITION 8,8?PRINT H H I C R 0 T E X 
T 1 . 2 U 

30 POSITION 12,12;PRINT H BY JON R. VOS 
KUIL“ 

40 PRINT SPRINT "COPYRIGHT 1982 SOFTS 
IDE PUBLICATIONS* 

50 FOR Z=1 TO 1000;NEXT Z 

Initialization. 

99 REH INITIALIZATION 

100 PRINT CLtsTRAP 20000 

120 DIN L$(40),T$(14000),B$(1),C$(1),C 
Rfill,LIN$(37),LNXT$(40),Ft(14),S$(37> 
,FT$(14),LP(500),TT$(40) ,X$(5) 

125 DIN P$(255) ? PP$(80),S$(37),Fl$(14) 
130 BKSP=126 s RTN=i55;SPC=32:B$=CHR$(12 
6);CR$-CHR$(20) 

135 T$“ l,H fL$= nt! sLP(0)=0 


) ) o 


140 CHAR=1 
150 LN=1 

160 LIN$="- 

-":S$=“ 

R 

170 OPEN ftl,4,0, n K: B 
180 LHID=36 
185 POKE 752,0 
190 V=2:H=2 

200 POSITION 2,0: PRINT " A SAVE A LQAD 
A REVIEW A EDIT A PRINT"; 

210 POSITION 2,1:PRINT LIN$; 

220 POSITION H,V:PRINT ■ ”;BI; 

Input loop. 

49? REN INPUT LOOP 
500 GET itl,C:C$=CHRt!C! 

520 IF C=RTN THEN «=CR$ 

639 REN BACKSPACE 

640 IF COBKSP THEN 720 

650 IF CHAR<2 THEN L$= Ba :G0T0 500 

660 PRINT Bi; n ”;B$j 

670 CHAR=CHAR-1 

675 IF CHAR<2 THEN 500 

630 L$=L$(1,CHAR-1! 

700 SOTO 500 

719 REH CHK FOR CTRL CHAR 

720 IF C<SPC THEN 2000 

739 REH CHK FOR END OF LN 

740 CHAR=CHAR+1: IF CHARaHIB OR C=SPC 
OR C=RTN THEN 760 
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750 GQSUB 1000 

759 REM ADD TO STRING 

760 L$(CHAR-1>=C$ 

779 REN RETURN 

780 IF COUTH THEN 880 
820 PRINT C$ 

840 GQSUB 6000:SL0C=0 
850 CHflR=l 
860 GOTO 500 

879 REN PRINT ON SCRN 

880 PRINT C$; 

899 REN UPDATE SPC PNTER, CHK FOR END 
OF LINE 

900 IF 0=32 THEN SLOOCHAR-I:IF CHAR=L 
HID THEN GOSUB 6000sCHAR=1:SL0C=0:PRIN 
T 

920 GOTO 500 

Subroutine to break line at a space and 
to Initialize the next line. 

1000 IF SL0C=0 THEN PRINT :GQT0 1100 
1020 SS=LHID-SLOC-1sFOR J=1 TO SSsPRIN 
T B$j:NEXT J 

1040 FOR J=1 TO SSsPRINT " :NEXT J:P 
RINT 

1050 IF 3LQC=LEN(Lf) THEN LNXT$= Ba :GOT 
0 1100 

1060 LNXT$=L$(SLOC+1) 

1080 L$=L*!1,SL0C) 

1100 GQSUB 6000 
1110 L$=LNXT$ 

1115 LNXT$= Hn 
1120 PRINT L$; 

1140 CHAR=LEN(L$)+2 
1150 SL0C=0 
1160 RETURN 

Subroutine to process command codes. 

1999 REN PROCESS CTRL CHAR 

2000 V=PEEK(84):H=PEEK(85) 

2050 TL=LEN(T$) 

2060 T$(TL+1)=L$ 

2070 POSITION 2,0:PRINT S$:PRINT LIN*; 
2080 IF C<>6 THEN 2100:REN CTRL-F (BAC 
K TO EDIT) 


2085 IF CHAR>1 THEN LP(LN)=LEN(T$):LN= 
LNH:LP(LN)=LEN(Tt):L*="“ 

2090 RETURN 

2100 IF C=18 THEN GOSUB 3000:REN CTL-R 
2200 IF 0=19 THEN GOSUB 4000:REN CTL-S 
2300 IF C=12 THEN GOSUB 5000: REN CTL-L 
2400 IF C=17 THEN END :REN CTL-Q 
2500 IF 0=16 THEN GOSUB 7000:REN CTL-P 
2600 IF C=5 AND LN>1 THEN I=LN-1:VV=V: 
POSITION 2,VV-1:GOSUB 9000:GOSUB 3000: 
REN CTL-E 

2900 IF TL>0 THEN T$=Tt(l,TL) 

2950 GOTO 200 

Subroutine to review text. Line 3055, a 
brief delay loop, may optionally be 
deleted. 

2999 REN REVIEW TEXT 

3000 PRINT CL$;“Press any key to pause 
":PRINT .LIN* 

3040 IF LN=1 THEN 3210 
3050 FOR 1=1 TO LN-1 
3055 FOR Z=1 TO 20:NEXT Z 
3060 PRINT Ti(LP(I-l)+l,LP(I5! 

3070 IF PEEK(764)=255 AND NOT STP THE 
N 3200 

3080 STP=0:POKE 764,255 
3090 VV=PEEK(84) 

3100 POSITION 2,1:PRINT LIN$;:POSITION 
2,0:PRINT " RTN:Cont SPCiStp 
E:Edit 

3120 X=PEEK(764):POKE 764,255 

3125 IF X=42 THEN GOSUB 9000:GOTO 3000 

3160 IF 1=12 THEN 3190 

3170 IF X<>33 THEN 3120 

3130 STP=1 

3190 POSITION 2,W:POKE 764,255 
3200 NEXT I 

3210 X=LP(LN-1!+1:IF X<=LEN(TI) THEN P 
RINT Tt(X); 

3220 H=PEEK(85):V=PEEK < 84) 

3230 RETURN 

Subroutine to save to tape or disk. 

3999 REN SAVE TO DISK/TAPE 
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4000 POSITION 2,0:PRINT S$f!POSITION 2 
,OiPRINT "Save to Tape or Disk? (T/D/E 
SC! "; 

4020 GET 41,X 
4030 IF X=27 THEN 4400 
4060 IF X=84 THEN 4200 
4070 IF X<>68 THEN 4000 
4075 Fit=F$ 

4080 POSITION 2,0:PRINT S$;:POSITIDN 2 
,0:PRINT "File Name: ";:INPUT F$ 

4082 IF F$="" AND Fl$=" n THEN 4080 

4083 IF F$="“ THEN F$=F1$ 

4085 IF F$(l,1!<>"D" THEN FT$="D:":FT$ 
!3!=F$:F$=FT$ 

4090 POSITION 2,0;PRINT "Insert disk a 
nd press RETURN"GET #1,X 
4100 OPEN 42,8,0,Ft:GOT0 4210 
4200 POSITION 2,0:PRINT "Start tape re 
corder and press RETURN"f:GET II,X 
4205 OPEN #2,8,0,"C:" 

4210 PRINT #2;LN:PRINT 12;SLOC:PRINT * 
2;CHAR 

4220 FOR 1=1 TO LN-i 

4230 PRINT I2;T$(LP(I-1)+1,LP(I!) 

4240 NEXT I 

4250 IF CHARM THEN PRINT #2;T$(LP(LN- 
1 )+ 1 ) 

4300 CLOSE #2 
4400 RETURN 

Subroutine to load text from tape or 
disk. 

4999 REN LOAD FROM DISK/TAPE 

5000 POSITION 2,0:PRINT S$;:POSITIQN 2 
,0:PRINT "Load fro® Tape or Disk? (T/D 
/ESC! 

5020 GET *1,X 
5030 IF X=27 THEN 5400 
5060 IF X=84 THEN 5200 
5070 IF X<>68 THEN 5000 
5075 Fi$=F$ 

5080 POSITION 2,0:PRINT S$;;POSITION 2 
,0:PRINT "File Name: INPUT F$ 

5082 IF F$="" AND Fi$="" THEN 5080 

5083 IF F$=“ n THEN Ft=Fl$ 


))>)))>))!) 


5085 IF F$(l, 1)0*0" THEN FT$="D:":FT$ 
!3)=F$:F$=FT$ 

5090 POSITION 2,0:PRINT "Insert disk a 
nd press RETURN";:GET II,X 
5100 OPEN #2,4,0,F$:GOTO 5210 
5200 POSITION 2,0:PRINT “Start tape re 
corder and press RETURN";:GET 41,X 
5205 OPEN 42,4,0,"C:" 

5210 INPUT 42;LN:INPUT 42;SLQC:INPUT 4 
2;CHAR 
5215 T$=“" 

5220 FOR 1=1 TO LN-1 

5230 INPUT 42,TTI:T$(LEN(T$!M)=TTt 

5240 LP(I)=LEN(T$! 

5250 NEXT I 

5255 TL=LEN(T$):L$=" 8 

5260 IF CHAR>1 THEN INPUT 42,TT$:T$(LE 

N(T$)+1!=TT!:LPILN)=LEN(T$):L4=TT$ 

5300 CLOSE 42 
5350 GQSUB 3000 
5400 RETURN 

Subroutine to add a line of text to the 
main text string. 

5999 REN ADD LN TO TEXT STRING 

6000 T$(LEN tT$)+1)=L$ 

6080 LP(LN)=LEN(T$) 

6100 LN=LN+l:LP!LN)=LEN!T$! 

6150 L$="" 

6200 RETURN 

Subroutine to print the text file In 
memory to a printer. 

6999 REN PRINTOUT RTN 

7000 PRINT CL$:PQSITIQN 2,6:LIN=0 
7010 ? "Left margin? (DeTault = 10! "; 

:INPUT Xt:LH=10:IF LENIX$)>0 THEN IF V 
AL(X$!>0 THEN LH=VAL(X$!:IF LH>37 THEN 

LH=37 

7020 PRINT :PRINT "Right margin? !Defa 
ult = 70) ";:INPUT X$:RH=70:IF LEN(X$) 
>0 THEN IF VAL(X$)>0 THEN RN=VAL(X4) 
7030 PRINT :PRINT "Line spacing? (Defa 
ult = 2) ";:INPUT X$:LS=2:IF LEN(X$)>0 
THEN IF VAL(XI)>0 THEN LS=VAL(X$) 
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7040 LL=RH-LH 

7070 PRINT CL$:LFRINT "":P$='":CR=0:I= 
0 

7080 1=1+1:P$(LEN(Pt)+l)=Tt(LP(1-11+1, 
LP(I)) 

7090 IF P$(LEN(Pf))=CRi THEN CR=1:S0T0 
7110 

7100 IF LEN(P$!<255-LWID AND KLN-l TH 
EN 7080 

7110 GOSUB 7500:CR=0 
7120 IF KLN-l THEN 7080 
7130 LPRINT St(l,LH);Lt; 

7150 LPRINT 
7160 GOSUB 3000 
7170 RETURN 
7500 L=LL 

7510 IF LEN(P$)>LL THEN 7550 
7520 IF ( NOT CR) THEN 7640 
7530 LP=LEN(P$):IF LP<2 THEN PP$="":P$ 
= ,,l :GOTO 7590 

7540 PPf=P$(1,LP-1):P$="": GOTO 7590 
7550 C$=P$!L,L):IF C$= n * THEN 7580 
7560 L=L-1:IF L>0 THEN 7550 
7570 L=LL 

7580 PP$=P$(1,L):PI=PI(L+1) 

7590 LPRINT S$(l,LHI;PPf; 

7610 FOR J=1 TO LS:LIN=LIN+1:LPRINT "" 
: NEXT J 

7615 IF LIN>59 THEN FOR J=1 TO 66-LIN: 
LPRINT n ”:NEXT J:LIN=0 
7620 IF LEN(P$)>LL THEN L=LL;GOTO 7550 
7630 IF CR AND LEN(P$)>0 THEN 7530 
7640 RETURN 

Subroutine to readjust lines In memory 
so that they fit properly on the screen 
after editing. 

7999 REH TEXT REJUSTIFY RTN 

8000 PRINT CL$:P0SITI0N 2,5:PRINT "Re¬ 
justifying text. . 

8010 TL=LEN!T$!:N=EL+NL-1:C=LP!N)+1;SL 
=C-1:CH=C-LP(N-1) 

8020 C$=T$(C,C) 

8030 IF C$=CR$ THEN 8100 


8035 IF C=TL THEN FL=1:SLQC=SL-LP(N-1) 

:GOTO 8100 

8040 IF C$= n " THEN SL=C 

8050 IF CH<LNID-1 THEN CH=CH+l:C=C+i:G 

QTO 8020 

8060 IF SL=LP(N-1) THEN SL=C 
8070 LP(Nl=SL:C=SL+1:N=N+1:CH=1:GOTO 8 
020 

8100 LP(N)=C 

8110 IF LP(N)=LP(N+1) THEN LN=LN-1:FOR 
I=N TO LN-1: LP (I) =LP (1+1): NEXT I 
8120 RETURN 

Subroutine to edit lines of text. 

8999 REH EDIT SUBR 

9000 FL=0: IF CHARM THEN LP(LN)=LEN(T$ 

):LN=LN+1:LP(LN)=LEN(Tt):L$="":FL=1 
9005 POKE 752,1:IT=I:3F I>21 THEN Vl=2 
2:GOTO 9040 

9010 V1=I+15POSITION 2,VV 

9020 X=21:IF X>LN-1 THEN X=LN-1 

9025 IF X=IT THEN 9040 

9030 FOR I=IT+1 TO X:PRINT Tf(LP(I-l)+ 

1,LP!I))!NEXT I 

9040 EL=V1+(IT>21)t(IT-21>-1 

9050 Q$="UP/DN:Have RTN:Edit D,X:Del 

ESC:Exit" 

9060 POSITION 2,0:PRINT Q$;PRINT LIN* 
9080 C=ASC!T$(LP(EL-1)+1)!:POSITION 2, 

VI:PRINT CHR*(C+l28);:GET il,X 
9085 POSITION 2,V1:PRINT CHR$(C); 

9090 IF X<>45 THEN 9130:REH UP 
9100 IF VI>2 THEN V1=V1-1:EL=EL-1:G0T0 
9080 

9110 IF EL=1 THEN 9080 
9115 EL=EL-5:IF EL<1 THEN EL=1 
9118 NN=20: IF EL+NNX.N-1 THEN NN=LN-EL 
-1 

9120 POSITION 2,2:FOR I=EL TO EL+NN:? 

S$;CHR*(31)|T$(LP(1-1)+1,LP!I)):NEXT I 
:GOTO 9080 

9130 IF X<>6! THEN 9180:REH DOWN 
9140 IF ELMLN-l-FL THEN 9080 
9150 EL=EL+1 

9160 IF VK22 THEN V1=V1+1:G0T0 9080 
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9165 NN=4:IF NN>LN-EL-1-FL THEN NN=LN- 
EL-l-FL 

9170 EL=EL+NN:POSITION 2,23:F0R I=EL-N 
N TO ELsPRINT T$(LP(I-1)+1,LP!I)):NEXT 
I:GOTO 9060 

9180 IF X=27 THEN 9580:REH ESC 
9190 IF X<>68 OR Vl=2 THEN 925Q:REH D 
9200 NC=LP EEL) -LP (EL-1): IF EiXN-1 THE 
N TI=T$(1,LP(EL-1)):GQT0 9205 
9202 T$(LP(EL-1)+l)=T$(LP(EL)+l) 

9205 FOR J=EL TO LN-1:LP(J)=LP(J+l)-NC 
:NEXT J 

9210 X=22-V1:IF X>LN-EL-2 THEN X=LN-EL 

n 

9220 POSITION 2,VI:? SltPOSITION 2,VI: 
IF EL<LN-1 THEN FOR J=EL TO EL+X:PRINT 
SI:? CHRI(28!;TI(LP(J-1!+1,LP(J)):NEX 
T J 

9225 PRINT SI; 

9230 IF EL=LN-1-FL THEN V1=V1-1:EL=EL- 
1 

9240 LN=LN-1:GOTO 9080 
9250 IF X<>88 THEN 9310: REM X 
9260 POSITION 2,0:PRINT "Delete from h 
ere to the end of text?";:GET #1,X:IF 
X<>89 THEN 9060 

9270 LN=EL:Ll=”":CHAR=1:SL0C=0: IF LN>1 
THEN T$=T$(1,LP!LN-1)):G0T0 9280 
9275 Tl="" 

9280 TL=LEN!TI):GQTO 9580 
9310 IF X<>155 THEN 9080 

9319 REH EDIT LINE 

9320 L1=EL-B:IF LKl THEN Ll=l 

9330 L2=EL+8:IF L2>LN-1 THEN L2=LN-1 
9340 PRINT CL$;"Type new line below ( A 
F to finish) ":PRINT LINI 
9350 FOR J=L1 TO EL:PRINT TI(LPi3-l)+l 
j LP(J)):NEXT J 

9360 PRINT :PRINT ;PRIHT iPRINT 
9370 IF L2>EL THEN FOR J=EL+1 TO L2:PR 
INT TI(LP(J-1)+1,LP(J!):NEXT J 
9380 POKE 752,0:POSITION 2,EL-Ll+2 
9390 TLN=LN 

9410 C1=CHARiS1=SLOC:CHftR=1s SL0C=0 
9420 GOSUB 500 


9430 CHAR=C1:SLGC=S1 

9450 NL=LN-TLN:NC=LP(LN-1)-LP(TLN-1) 

9480 IF EL=LN-1 THEN T$=T$(1,LP(EL-1)) 

:GOTO 9490 

9485 Tt(LP(EL-1)+1)=Tt(LPiEL)+1) 

9490 CC=LP(EL)-LP(EL-1):FOR J=EL TO LN 
-1:LP(J)=LP(J+l)-CC:NEXT J:IF NL=0 THE 
N LN=TLN-1:GOTO 9580 
9500 X$=T$(LEN(TI)):IF XIOCRI AND X$< 

>" " THEN T$(LEN(T$)+i)=" ":NC=NC+1:LP 
(LN-2) =LP (LN-2)+1: LP (LN-1) =LP (LN-1)+1 

9502 CN=LP(EL-1!:FOR I=LEN(Tt) TO CN+1 
STEP -NC: IF KNC THEN T$ (CN+NC+1,1+NC 
)=TI(CN+1,I);GOTO 9504 

9503 TKI+l, I+NC)=TI(I-NC+1,I) 

9504 NEXT I 

9505 Tl(CN+1,CN+NC)=T$(LEN(Tl)-NC+1) 

9506 FOR I=LN-2 TO EL STEP -1:LP(I+NL) 
=LP(I)+NC:NEXT I 

9508 MLN+NL-1:K=LP(LN-2! -LP(EL-1): FO 
R 1=0 TO NL-1:LP(EL+I)=LP(J+I}-K:NEXT 
I 

9510 TI=TI!1,LEN(TI)-NC) 

9530 LN=TLN+NL-1:IF XI=CRf OR EL=LN-NL 
THEN 9580 

9550 SS=1:PI=T$(LP(EL+NL-1)+1,LP(EL+NL 
)):LL=LEN(P$! 

9560 IF PI(SS,SS)<>“ “ AND SS<LL THEN 
S5=SS+1:GOT0 9560 

9570 IF LP(EL+NL-1)-LP(EL+NL-2!+SS<=LH 
ID THEN GOSUB 8000 

9580 TL=LEN(T$);IF FL THEN LN=LN-1:LI= 
Tt(LP(LN-l!+l,LP(LN)):CHAR=LEN!L$)+l:T 
L=LP(LN-1) 

9600 STP=0:POKE 752,0: RETURN 

Error-handling routine. 

19999 REH ERROR-HANDLING RTN 

20000 CLOSE #2:E=PEEK(195) 

20010 POSITION 2,0:PRINT SI;;POSITION 
2,0:PRINT “Error: Code ";E;"; press an 
y key"; 

20020 GET SI,X 
20030 TRAP 20000 
20040 GOTO 200 
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SWAT (Strategic Weapon Against 
Typos) is a debugging utility for any 
Atari. 

One of the major frustrations of typ¬ 
ing computer programs from printed 
listings is finding typographical errors. 
The process is a time-consuming lesson 
in the computerist’s version of 


Following this explanatory article, 
you will find SWAT Tables for each 
program in this book. These tables 
consist of columns of numbers and 
alphabetic codes, and are the result of 
running SWAT . The idea is that the 
tables in the book ought to be identical 
to the ones you generate on your com¬ 
puter. If there are any differences, then 
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by Jon R. Voskuil 

Atari version by Alan J. Zett 


Murphy’s Law, “There is always one 
more bug.” 

Enter SWAT to the rescue! Inspired 
by a program with a similar aim that 
appeared in Nibble magazine, we’ve 
developed this program to help you 
find differences between the program 
listings in The Best of SoftSide and the 
lines you type into your computer. 


you know that the program in your 
computer’s memory differs from the 
published program, and the table can 
tell you, within a few program lines, 
where to find the error. 

What SWA T does 
Swat generates three columns of in¬ 
formation. Each entry in the first col¬ 
umn is a range of line numbers; each 
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entry in the second column is a two- 
letter SWAT Code; and each entry in 
the third column is the length in bytes 
(characters), of the specified program 
Lines. 

Superfluous or omitted characters 
will appear as differences in the third 
column. Mistyped characters will ap¬ 
pear as differences in the second 
column. 

How to use SWAT 

First, type the listing of SWAT that 
appears immediately after this article, 
then LIST it to disk with the command 
LIST “D:SWAT”, or LIST “C:” for 
cassette. Then, to use it on another 
program, you must append it to the 
end of the program to be checked. 
Here’s how. 

Type the program you want to test, 
then LIST it to tape or disk. Type 
“POKE 580,1”, then press [SYSTEM 
RESET]. This will cause your Atari to 
re-boot, clearing the variable table. 
Alternatively, you may turn your Atari 
off and back on. Failure to re-boot 
may cause improper SWAT codes to be 
generated. After re-booting, load your 
program back into memory with the 
ENTER “C:” or ENTER “D:file- 
name” command. Then append 
SWAT to your program with ENTER 
“C:” or ENTER “D:SWAT”. 

Once you have appended SWAT to 
your program, type GOTO 32000. You 
will have the opportunity to choose 
alternate “parameters” (more on them 
later), and whether to send the output 
to the screen or the printer. Once the 
SWAT Table has been generated, 
simply compare it to the published one. 
If they are identical, you may begin us¬ 
ing your program. 

What if the Tables Don’t Match 

First, examine the listed line 
numbers in the first columns of the 
SWAT Tables. If they don’t match, it 
probably means that you have inserted, 
omitted, or changed one line or more. 


A gross error in the length of a line 
may also cause this type of discre¬ 
pancy. An inserted or omitted line will 
affect all entries in the first column 
from that point on. Search the lines in¬ 
dicated by the earliest erroneous entry, 
and correct mistyped lines. Then repeat 
the SWAT procedure above. 

If, after doing this, there are still 
discrepancies in the second or third col¬ 
umns, more deatiled trouble-shooting 
procedures will be necessary. A bad en¬ 
try in column three will almost always 
be accompanied by a bad entry in col¬ 
umn two, although the reverse may not 
be true. 

If the length entry in column three is 
OK, but the corresponding SWAT 
code in column two is bad, the most 
likely cause is a simple substitution of 
one character for another somewhere 
within the indicated lines. For exam¬ 
ple, a variable name NO may have been 
typed as NO; a comma may have been 
put in the place of a period; a number 
like 32767 may have been mistyped as 
32757; or perhaps a word in a PRINT 
or REM statement may have been 
misspelled. There are more com¬ 
plicated possibilities, with the same 
j number of bytes added in one part of a 
line as were omitted elsewhere in it. 
Also, keep in mind that BASIC 
keywords (PRINT, INPUT, FOR) oc¬ 
cupy only one byte in memory. Thus, 
although GOSUB looks longer that 
GOTO, typing one for the other would 
change the SWAT code, but not the 
length. 

If the entry in the third column is 
bad, it’s possible to get some clue 
about the nature of the error by com¬ 
paring the actual number to the 
published one. A number that is too 
large usually indicates extra characters, 
while a number that is too small usual¬ 
ly indicates an omission. Remember 
that keywords may be deceptive in this 
context. The only way to find the typ¬ 
ing errors is simply to compare what 
you typed line by line and character by 
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character with the printed listing. 
SWAT narrows down the range you 
must search to no more that 12 lines or 
approximately 500 bytes of code. This 
“resolution” can easily be changed by 
answering “N” when SWAT asks you 
if you want to use standard 
parameters. You then enter, at the next 
prompt, the numbers following 
“NU = ” and “B = ”, separated with a 
comma. If there is no indication in the 
published SWAT Table of modified 
parameters, just accept the standard 
ones. 

Remember that SWAT is very picky, 
and “knows” nothing about how 
BASIC works. It may therefore balk at 
an insignificant difference in a REM, 


DATA, or PRINT statement. The only 
way to get correct SWAT Tables is to 
type exactly what appears in the 
printed listing. 

Using SWA T to Check Itself 
After typing SWAT and LISTing it 
to tape or disk, re-boot your Atari, 
ENTER SWAT, and add the following 
line: 

32767 REM 

Then, change the value of LN in line 
32000 to 32767. You may then RUN 
the program, and it should generate the 
table printed right after the listing of 
SWAT. 


ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

SS Atari BASIC SS 

SS ’SWAT’ SS 

SS Author; Jon R. Voskuil SS 
SS Translator; Alan J. Zett SS 
SS Copyright ic) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

32000 CLR :LN=32000:NU=i2;8=500:DIM T$ 


32010 CLOSE #1;CLOSE #2:ft=PEEK(136)+PE 
EK!137)I256:GRAPHICS 0:OPEN f2,4,0,*K: 
":D!H Z$U2):Zf=" 

32015 POKE 752,1:PRINT "> H :PRIHT :PRIN 
T "NORMAL PARAMETERS? u :GET #2,P:PRINT 
:PRINT 

3201A IF P<>89 THEN PRINT "INPUT # OF 
LINES, # OF BYTES: INPUT NU,B 

32020 Cl=l:C2=2:C3=3:CQ=256: N=0:PRINT 
:PRINT :? "OUTPUT TO SCREEN OR PRINTER 
? fS/Pi“:GET #C2,X 

32022 TRAP 32020:CLOSE #C1:OPEN #C1,8, 
0,CHRI(X!:P0KE 752,Cl 
32025 IF X=80 THEN ? ;? "PROGRAM TITLE 
: INPUT T$:? #C1;CHR$(15):? #C1;“ A 

TARI SWAT TABLE FOR: ";T*:? #C1 


32030 IF PC>89 THEN ? ICl;” (MODIFIED 
PARAMETERS: NU=";NU;", B=”;B;")":? #C1 
32035 POKE 752,Cl:? #C1;" ' LINES 
SWAT CODE LENGTH" 

32040 ?#C1;“ - - 


32050 L1=PEEKSA)+PEEK(A+C1StCQ:IF L1=L 
N THEN CLOSE #C1:CLOSE #C2:POKE 752,0: 
END 

32060 5=0:A1=A:L=L1 
32070 FOR I=C1 TO NU 
32080 AA=A:A=A+PEEK(A+2) 

32090 L2=L:L=PEEK(A)+PEEK(A+l)SCO 
32100 FOR J=AA TO A-C1:S=S+PEEK(J):NEX 
T J 

32110 IF L=LN OR A-ADB THEN I=NU 
32120 NEXT I 

32130 D=INT(S/676):S=S-DJ676:D1=INT(S/ 
26):D2=S-D1126 

32140 ? #l:Zf(l,6-LEN(STR$(Ll)));Ll; H 
- “:L2;2*11,12-LEN!STRI(L2)));CHR$(D1+ 
65);CHRf(D2+65); 

32150 ? #1;2i(1,31-LEN1STR$!A-A1))):A- 
Al:IF X<>83 THEN 32170 
32160 N=N+1:IF N=19 THEN N=l:? #1:? #1 
;"RETURN TO CONTINUE”:GET #2,D:? #1 
32170 GOTO 32050 

The Best of SoftSide 141 








ATARI® SWAT TABLE FOR: ATARI® SWAT TABLE FOR: 

MELODY DICE DATABASE II 


LINES 

SWAT 

CODE 

LENGTH 

LINES 

SWAT 

CODE 

LENGTH 

5 - 90 

JY 

335 

110 

- 133 

KY 

512 

100 - 190 

SE 

375 

134 

- 138 

RS 

525 

200 - 1140 

QD 

638 

139 

- 220 

ZD 

514 

1142 - 2070 

NO 

566 

230 

- 320 

BP 

527 

2080 - 2540 

NO 

510 

330 

- 440 

UV 

318 

2542 - 2610 

RF 

546 

450 

- 560 

RY 

354 

2612 - 2650 

IX 

537 

570 

- 680 

PS 

504 

2652 - 2900 

NY 

355 

690 

- 800 

KW 

479 

3000 - 3050 

SH 

508 

810 

- 910 

JF 

588 

3060 - 3170 

RZ 

439 

915 

- 1000 

DV 

525 

3180 - 3290 

VF 

358 

1010 

- 1090 

BN 

554 

3300 - 3410 

NC 

498 

1100 

- 1210 

JM 

469 

3420 - 3530 

NZ 

251 

1220 

- 1330 

RB 

465 

3540 - 3650 

BC 

330 

1340 

- 1450 

TG 

422 

3660 - 3900 

C8 

416 

1460 

- 1570 

XA 

438 

3910 - 4090 

BT 

204 

1580 

- 1690 

JH 

376 

4100 - 4310 

AR 

255 

1700 

- 1810 

BF 

529 

4320 - 4640 

TT 

379 

1820 

- 1930 

UT 

458 

4650 - 4960 

X8 

519 

1940 

- 2050 

XE 

416 

4970 - 5100 

DP 

288 

2160 

- 2270 

LV 

506 

5110 - 5250 

NV 

251 

2280 

- 2390 

TQ 

354 

5260 - 6050 

LR 

485 

2400 

- 2510 

DO 

450 

6060 - 6180 

BE 

271 

2520 

- 2630 

SX 

339 

6190 - 8000 

SN 

536 

2640 

- 2750 

XE 

219 

10000 - 10060 

BE 

534 

2760 

- 2870 

EJ 

432 

10070 - 10150 

PT 

555 

2880 

- 2980 

HJ 

534 

10160 - 10220 

PK 

547 

2990 

- 3100 

KQ 

460 

10230 - 10300 

IG 

524 

3110 

- 3200 

HF 

441 
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ATARI® SWAT TABLE FOR: 
DEFENSE 

SWAT 

LINES CODE LENGTH 

ATARI® SWAT TABLE FOR: 

MAZE SEARCH 

SWAT 

LINES CODE LENGTH 

10 - 40 

CH 

707 

1 - 200 

P0 

296 

50 - 150 

NH 

539 

210 - 254 

B V 

398 

155 - 230 

NV 

611 

300 - 430 

HV 

541 

240 - 1000 

HA 

407 

500 - 600 

0Y 

504 

1005 - 3015 

HU 

536 

700 - 906 

FF 

284 

3020 ** 3045 

IF 

563 




3050 - 3065 

QP 

527 

ATARI® SWAT TABLE FOR: 

MUSIC PROGRAMMER 

3070 - 4040 

LB 

585 

Q\A/AT 


4050 - 4125 

KJ 

561 

LINES i 

uirni 

CODE 

LENGTH 

4130 " 6030 

EB 

533 




6040 - 7000 

SB 

618 

10 - 30 

OR 

532 

7005 - 10045 

DB 

531 

31 - 42 

KB 

624 

10050 - 11020 

6A 

507 

45 - 82 

6H 

538 

11030 - 11120 

FH 

423 

83 - 704 

YG 

505 




705 - 720 

XV 

527 




722 - 754 

uc 

551 

ATARI® SWAT TABLE FOR: 

755 - 806 

NT 

558 

SOLITAIRE 



807 - 814 

OU 

510 

LINES 

SWAT 

CODE 

LENGTH 

816 - 826 

oc 

557 




CP7 _ OTL 

MD 

C/ A 




Oju / 000 

rm 

J04 

1 - 26 

E0 

524 

837 - 910 

uc 

569 

27 - 38 

HR 

577 

920 - 992 

YH 

521 

40 - 50 

FJ 

542 

993 - 1000 

6R 

579 

52 - 110 

CK 

503 

1001 - 1017 

XN 

509 

120 - 240 

IT 

472 

1019 - 1033 

WU 

515 

250 - 360 

HU 

468 

1035 - 1085 

WH 

512 

365 - 460 

ZS 

395 

1090 - 1124 

HE 

527 

470 - 560 

HH 

566 

1125 - 1150 

GC 

541 

570 - 680 

US 

365 

1151 - 1163 

DA 

514 

690 - 785 

EC 

540 

1164 - 1185 

RQ 

512 

790 - 880 

SK 

495 

1186 - 1208 

JO 

52B 

390 - 980 

n 

391 

1210 - 1222 

m 

553 

990 - 1100 

xc 

368 

1224 - 1901 

EG 

547 

1110 - 1160 

EF 

519 

1940 - 5016 

WR 

614 

1170 - 1240 

Cl 

554 

5017 - 6502 

AS 

512 

1250 - 1330 

KB 

529 

6505 - 7530 

YN 

446 

1340 - 1450 

FH 

369 

7532 - 7560 

SR 

547 

1460 - 1550 

CV 

622 

7570 - 8453 

AB 

537 

1560 - 1630 

BS 

552 

8454 - 9031 

EF 

605 

1640 - 1640 

KH 

16 

9450 - 9469 

ip 

326 
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ATARI® SWAT TABLE FOR: 




OPERATION SABOTAGE 

(Modified Parameters: NU = 1 

5, B = 200) 


SWAT 



SWAT 


LINES 

CODE 

LENGTH 

LINES 

CODE 

LENGTH 

1 - 7 

m 

176 

1420 - 1450 

BN 

259 

8 - 30 

NO 

174 

1460 - 1490 

UL 

217 

40 - 70 

VK 

241 

1492 - 1502 

TY 

231 

80 - 100 

NK 

229 

1504 - 1520 

sz 

153 

110 - 130 

YN 

241 

1522 - 1532 

AI 

216 

140 - 160 

RH 

249 

1534 - 1570 

VN 

171 

170 - 200 

SC 

291 

1580 - 1602 

CY 

245 

202 - 230 

UE 

283 

1604 - 1630 

BK 

225 

240 - 270 

RE 

303 

1640 - 1670 

BN 

242 

272 - 300 

FI 

207 

1680 - 1700 

NI 

231 

310 - 320 

NY 

222 

1710 - 1740 

NN 

211 

330 - 350 

QX 

217 

1750 - 1790 

XF 

267 

360 - 380 

NS 

229 

1800 - 1840 

DK 

277 

390 - 402 

TV 

220 

1850 - 1890 

PB 

174 

410 - 430 

WJ 

222 

1900 - 1932 

RZ 

201 

440 - 470 

KR 

217 

1940 - 1952 

ZN 

201 

480 - 520 

Z8 

244 

I960 - 1972 

QA 

268 

530 - 570 

B0 

261 

1980 - 1992 

KU 

210 

580 - 650 

NO 

206 

2000 - 2040 

LN 

148 

660 - 700 

eo 

168 

2050 - 2080 

HA 

251 

710 - 732 

sx 

174 

2090 - 2100 

QS 

222 

740 - 760 

SE 

209 

2110 - 2132 

CL 

260 

762 - 780 

DU 

216 

2140 - 2154 

AA 

204 

790 - 830 

VN 

138 

2160 - 2200 

RL 

237 

040 - 080 

NL 

299 

2210 - 2250 

QO 

96 

890 - 930 

FV 

101 

2260 - 2300 

AN 

166 

940 - 980 

NX 

105 

2310 - 2342 

BH 

216 

990 - 1030 

RV 

213 

2344 - 2410 

FZ 

205 

1040 - 1080 

PH 

113 

2420 - 2460 

ZB 

223 

1090 - 1130 

TJ 

186 

2470 - 2500 

LS 

228 

1132 - 1150 

BT 

237 

2510 - 2550 

PG 

178 

1152 - 1170 

DO 

212 

2560 - 2574 

XK 

221 

1180 - 1210 

E0 

261 

2580 - 2600 

JX 

201 

1220 - 1242 

SW 

218 

2610 - 2626 

SK 

374 

1250 - 1270 

SC 

235 

2630 - 2670 

BG 

201 

1280 - 1310 

DB 

216 

2700 - 2740 

VB 

217 

1320 - 1360 

NH 

209 

2742 - 2772 

RE 

275 

1370 - 1410 

IJB 

269 

2774 - 2790 

EL 

185 
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ATARI® SWAT TABLE FOR: 

THE FLIGHT OF THE 

BUMBLEBEE BEE 

(Modified Parameters: NU = 5, 

B = 200) 

SWAT 

ATARI® SWAT TABLE FOR: 
FUGUE 

(Modified Parameters: 

NU = 5, B = 200) 

SWAT 

LINES CODE LENGTH 

- 

LINES 

CODE 

LENGTH 

1 - 20 

GU 

217 

10 - 40 


CO 

264 

210 - 230 

AL 

215 

100 - 120 


CA 

205 

240 - 300 

NO 

202 

130 - 140 


XG 

244 

310 - 330 

AR 

243 

150 - 170 


EC 

233 

1000 - 1040 

FB 

205 

180 - 190 


LQ 

250 

1050 - 1090 

ZO 

213 

200 - 1000 


DT 

210 

1100 - 1140 

BY 

209 

1001 - 1005 


NK 

169 

1150 - 1190 

HL 

207 

1010 - 1060 


HC 

204 

1200 - 1240 

SH 

231 

1080 - 1140 


HT 

259 

1250 - 1290 

NV 

239 

1160 - 1220 


RU 

213 

1300 - 1340 

UU 

234 

1240 - 1280 


sz 

206 

1350 - 1390 

A0 

232 

1300 - 1340 


CP 

206 

1400 - 1440 

SQ 

225 

1360 - 1420 


QC 

233 

1450 - 1480 

KK 

202 

1440 - 1500 


SK 

220 

1490 - 1530 

IB 

249 

1520 - 1580 


ZR 

212 

1540 - 1570 

FB 

212 

1600 - 1660 


XT 

212 

1580 - 1610 

HY 

209 

1680 - 1740 


HN 

212 

1620 - 1650 

XN 

215 

1760 - 1820 


EP 

212 

1660 - 1690 

UN 

221 

1840 - 1900 


NH 

234 

1700 - 1730 

PH 

204 

1920 - 1980 


SQ 

229 

1740 - 1770 

UC 

215 

19999 - 30200 


BN 

344 

1780 - 1810 

xs 

224 

30210 - 30310 


LN 

279 

1820 - 1850 

K0 

225 

30320 - 30330 


HD 

101 

1860 - 1870 

KY 

114 

ATARI® SWAT TABLE FOR: 

MINIGOLF 

SWAT 

LINES CODE LENGTH 

LINES 

602 - 630 
640 - 700 

SWAT 

CODE 

8Q 

0T 

LENGTH 

510 

533 

8 - 38 

RP 


538 

702 - 750 

JI 

571 

40 - 74 

AN 


519 

752 - 804 

IZ 

540 

90 - 108 

VS 


510 

810 - 852 

YX 

519 

109 - 152 

uc 


542 

854 - 910 

HX 

576 

154 - 205 

BS 


537 

915 - 1000 

ON 

607 

210 - 231 

LM 


517 

1002 - 1020 

BZ 

501 

232 - 310 

ftj 


554 

1030 - 1100 

AH 

547 

320 - 420 

2Q 


Cf [T 

jl j 

1102 - 1150 

DQ 

524 

434 - 510 

IP 


542 

1152 - 2030 

NJ 

501 

512 - 600 

AZ 


537 

2040 - 9999 

PJ 

209 
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ATARI® SWAT TABLE FOR: 
BATTLEFIELD 

SWAT 

LINES CODE LENGTH 

10 - 40 

ftF 

507 J v/ 

42 - 130 

HD 

258 J v 

140 - 1080 

IK 

533 J 

1090 - 2050 

HO 

509 ^ ^ 

2055 - 2170 

TP 

470 S s 

2175 - 3060 

m 

439 ^ 

4000 - 4115 

fn<3 ~ 

2120 V 

4130 - 5060 

SA 

257^/ 

5070 - 6030 

HI - 

309 v 7 

6035 - 6150 

Hft — 

275 • 

6155 - 7080 

GB »- — 

344 

7090 - 8020 

NC - 

344 

8025 - 8110 

FH - “ 

IfT 

8120 - 10110 

ID - - 

'329 

10120 - 11060 

CH ~ — 

302 

11070 - 12080 

XT 

408^ V 

12090 - 13070 

DC - — 

4126x0' 

13080 - 13120 

JH~ 

5 8 v"' 

ATARI® SWAT TABLE FOR: 

CHARACTER GENERATOR 

SWAT 

LINES 

CODE 

LENGTH 

10 - 36 

HF 

400 

38 - 72 

OH 

414 

73 - 102 

HQ 

306 

104 - 172 

YR 

455 

174 - 280 

EH 

401 

290 - 358 

UJ 

478 

360 - 470 

AH 

111 

480 - 566 

GZ 

413 

568 - 630 

FK 

370 

640 - 690 

JY 

528 

700 - 810 

IC 

495 

820 - 910 

XH 

416 

920 - 1030 

YZ 

364 

1040 - 10050 

FH 

402 

10051 - 10070 

Cl 

138 
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ATARI® SWAT TABLE FOR: 
FLIP-IT 

SWAT 

LINES CODE LENGTH 

100 - 160 

IV 

565 

170 - 200 

SV 

556 

205 - 330 

XH 

501 

340 - 632 

SN 

431 

640 - 706 

BC 

542 

708 - 832 

81 

513 

840 - 1000 

NN 

546 

1005 - 1040 

DV 

530 

1045 - 1080 

JB 

554 

1085 - 1120 

TO 

578 

1125 - 1160 

EY 

545 

1165 - 2008 

XD 

579 

2010 - 2050 

HQ 

552 

2060 - 3032 

TB 

534 

3034 - 3080 

CT 

333 

3082 - 3130 

XC 

454 

3132 - 4020 

IP 

489 

4050 - 4092 

C8 

518 

4100 - 4132 

EY 

535 

4134 - 4174 

NB 

530 

4180 - 4230 

GN 

596 

4240 - 5040 

NB 

564 

5050 - 5100 

HN 

584 

5110 - 7010 

SV 

556 

7020 - 7030 

KK 

71 

ATARI® SWAT TABLE FOR: 

WORD SEARCH 

PUZZLE GENERATOR 

SWAT 

LINES 

CODE 

LENGTH 

90 - 135 

BT 

529 

140 - 210 

IK 

502 

220 - 330 

BZ 

457 

340 - 450 

FJ 

413 

460 - 570 

61 

462 

580 - 690 

AQ 

347 

692 - 760 

PG 

290 

765 - 770 

NB 

56 
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ATARI® SWAT TABLE FOR: 

GAMBLER 

SWAT 

LINES CODE LENGTH 

1 - 20 

TU 

534 

22 - SO 

OF 

552 

81 - 100 

HZ 

503 

110 - 156 

TO 

516 

160 - 200 

til 

527 

202 - 250 

XT 

502 

252 - 310 

ZD 

583 

320 - 361 

PJ 

632 

362 - 390 

0J 

531 

392 - 421 

E0 

563 

450 - 473 

HG 

512 

480 - 522 

VZ 

570 

524 - 542 

KT 

557 

544 - 600 

XF 

534 

602 - 631 

AC 

530 

632 - 662 

ZE 

527 

664 - 714 

JH 

670 

716 - 734 

EB 

549 

735 - 750 

TB 

569 

751 - 770 

01 

539 

780 - 810 

JD 

545 

820 - 870 

0Y 

529 

880 - 930 

GA 

519 

932 - 960 

SL 

544 

962 - 1002 

jj 

584 

1004 - 1030 

TJ 

507 

1032 - 1070 

IF 

648 

1072 - 1122 

EV 

567 

1130 - 1172 

SB 

572 

1174 - 1202 

JK 

589 

1204 - 1234 

EY 

538 

• 1240 - 1280 

XB 

581 

1282 - 1320 

BY 

556 

1330 - 1362 

XL 

608 

1370 - 1450 

VA 

522 

1452 - 1475 

AP 

580 

1430 - 1482 

VH 

105 


ATARI® SWAT TABLE FOR: 
LEYTE 

SWAT 

LINES CODE LENGTH 

50 - 100 

DA 

534 

110 - 127 

KL 

566 

130 - 176 

DC 

518 

177 - 240 

YE 

537 

250 - 320 

ID 

510 

330 - 420 

UL 

555 

425 - 510 

UY 

526 

520 - 560 

CH 

555 

570 - 610 

VE 

550 

615 - 680 

ZA 

597 

690 - 770 

NN 

519 

730 - 885 

T0 

312 

890 - 940 

HG 

548 

950 - 980 

KL 

511 

1000 - 1040 

QL 

514 

1050 - 1100 

GZ 

511 

1105 - 2080 

KD 

550 

2090 - 3060 

AZ 

574 

3070 - 4040 

OE 

535 

4050 - 6030 

QF 

529 

6040 - 6110 

AI 

503 

6120 - 7010 

SD 

164 

ATARI® SWAT TABLE FOR: 
SPACE RESCUE 

SWAT 

LINES 

CODE 

LENGTH 

10 - 40 

BU 

531 

45 - 80 

m 

516 

81 - 147 

BR 

503 

150 - 220 

HI 

522 

225 - 285 

XI 

546 

290 - 400 

m 

550 

410 - 465 

zu 

528 

470 - 550 

GP 

554 

560 - 670 

JO 

575 

680 - 699 

zv 

546 

1000 - 1060 

TB 

530 

1070 - 1140 

BX 

555 

1142 - 1152 

TO 

642 

1154 - 1160 

HU 

300 
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APPLE™ SWAT TABLE FOR: 
QUEST (Modified Parameters: 


NU = 5, B = 200) 

SWAT 
LINES CODE 

LENGTH 

1 - 7 

JO 

290 y 

8 - 100 

UO 

207 

102 - 108 

EF~ 

228 - & 

110 - 125 

VH- 

167 

130 - 150 

ZT 

108 

155 - 175 

JL 

111 ^ 

180 - 200 

ZG 

116 y 

205 - 225 

HO 

118 'S 

240 - 280 

LR 

117 J 

290 - 330 

XA 

115 'J 

340 - 380 

NZ 

118 yJ 

390 - 430 

XK 

118 ^ 

440 - 480 

HG 

118 ^ 

490 - 530 

YI 

118 v/ 

540 - 580 

YD 

115 ^ 

590 - 602 

QT 

246 / 

603 - 610 

OH 

269 / 

615 - 810 

HS 

297 \/ 

812 - 830 

01 

216 y ... 

832 - 840 

OC 

216 ✓ 

845 - 860 

EU 

228 V 

862 - 880 

RL 

226 \/ 

882 - 903 

VA 

266 ^ 

905 - 911 

YV - 

204 

912 - 916 

JK 

131 \/ 

917 - 925 

TU 

226 V 

930 - 942 

EG~ 

255 

945 - 955 

JH 

234 J 

957 - 980 

XI 

113 J 

y 

990 - 994 

0D- 

268 - a 

995 - 998 

TE - 

292 - <9 

999 - 1003 

EF - 

200 

1004 - 1020 

UH - 

191 - & 

1022 - 1030 

TF - 

169 

1031 - 1060 

QL - 

239 

1061 - 1065 

JY 

271 J 

1070 - 1077 

IV 

206 \/ 

TOSF- 1086 

YJ 

718 ^ 

1087 - 1088 

NK 

246 y 


LINES SWAT CODE LENGTH 


1090 

- 1097 

xu - 

178 Jh 

1100 

- 1120 »- 

11 - 

140 - $ 

1125 

- 1145 

RE 

198 v' 

1200 

- 1207 

HE¬ 

178 

1210 

- 1230 

RD - 

171 

1235 

- 5000 

SZ - 

173 

5005 

- 5020 

BS t 

263 S 

5025 

- 10015 

CV 

212 v/ 

10020 

- 10030 

HG w 

224 — 

10032 

- 10042 

JR 

213 W 

10045 

- 11014 

LF 

256 v/ 

• 

11015 

- 11030 

VY 

244 - 

11032 

- 11042 

UO 

211V 

11045 

- 15100 

JG- 

190 

15102 

- 15200 

LO - 

167 

15202 

- 15300 

DK 

163 

15302 

- 15320 

KK~ 

195 

15400 

- 15410 

PH 

205 

15420 

- 15507 

DY 

128 

15510 

- 15522 

RJ 

123 u '' 

15523 

- 15601 

BB — 

83 

15605 

- 15610 

ZD 

135 V 

15620 

- 15699 

NO — 

144 

15700 

- 15705 

YV - 

155 

15706 

- 15710 

RJ - 

123 

15711 

- 15720 

QT - 

200 

15750 

- 16002 

HR— 

143 

16003 

- 16008 

YV 

147 v/ 

16010 

- 16020 

UB — 

120 

17000 

- 17015 

zo — 

176 

17020 

- 17024 

GL 

201 v 

17025 

- 18005 

PR ~ 

188 

20000 

- 20010 

SV 

236 </ 

20011 

- 20019 

HA - 

234 

^ 20020 

- 20025 

HI 

243 V 

20027 • 

20035 

VU ~ 

222 

20036 ■ 

- 20050 

HV 

137 v/ 

20055 • 

20099 

L0 

228 v 

21000 ■ 

- 21005 

YH - 

317 — 

21010 - 

21022 

HN - 

185 

21025 ■ 

30000 

JL — 

257 ~ 

30010 - 

30021 

PA - 

228 ** 

30030 ■ 

30050 

LD - 

153 p- 
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ATARI® SWAT TABLE FOR: 

TITAN PART 1 


ATARI® SWAT TABLE FOR: 

MICROTEXT 1.2 


LINES 

SWAT 

CODE 

LENGTH 

1100 - 1140 

RL 

589 

1150 - 1200 

NZ 

509 

1210 - 1250 

JO 

527 

1260 - 2160 

PH 

532 

2170 - 3020 

6L 

569 

3030 - 20020 

VY 

593 

20030 - 20070 

Zfl 

507 


ATARI® SWAT TABLE FOR: 

TITAN PART 2 

SWAT 


LINES CODE 

LENGTH 

300 

— 

1030 

NE 

574 

1040 

- 

1140 

LV 

516 

1150 

- 

1240 

90 

589 

1250 

- 

1310 

DL 

553 

1320 

- 

1350 

CZ 

540 

1360 

- 

2020 

RB 

606 

2030 

- 

2120 

flZ 

561 

2130 

- 

2185 

UA 

560 

2190 

- 

2250 

ZH 

518 

2300 

- 

2350 

J8 

549 

2360 

- 

2445 

HL 

529 

2450 

- 

2500 

LH 

504 

2510 

- 

2550 

HP 

533 

2560 

- 

2650 

GP 

524 

2660 

- 

3010 

RZ 

532 

3020 

- 

3500 

FS 

535 

3510 

- 

3550 

flP 

543 

3560 

- 

4105 

LU 

579 

4110 

- 

4150 

ZP 

603 

4160 

- 

5000 

90 

566 

5010 

- 

6000 

SP 

517 

6010 

- 

8000 

88 

505 

8010 

- 

8550 

BH 

532 

S560 

- 

8620 

RU 

585 

8630 

- 

20020 

PH 

582 

20030 

- 

20070 

HK 

507 


LINES 

SWAT 

CODE 

LENGTH 

10 - 130 

UG 

528 

135 - 499 

HS 

380 

500 - 720 

EU 

239 

739 - 879 

TI 

222 

880 - 1110 

ZV 

328 

1115 - 2085 

TH 

284 

2090 - 3040 

VQ 

378 

3050 - 3180 

Oft 

390 

3190 - 4075 

ZN 

323 

4080 - 4240 

BP 

500 

4250 - 5082 

PC 

361 

5083 - 5250 

SE 

430 

5255 - 6999 

16 

246 

7000 - 7100 

FF 

539 

7110 - 7550 

XK 

268 

7560 - 8010 

IQ 

419 

8020 - 9000 

YX 

435 

9005 - 9100 

AY 

500 

9110 - 9190 

CG 

514 

9200 - 9260 

so 

526 

9270 - 9380 

CK 

460 

9390 - 9502 

DK . 

549 

9503 - 9580 

HB 

542 

9600 - 20040 

HX 

213 

60000 - 60110 

TH 

449 

60120 - 60130 

HG 

110 


ATARI® SWAT TABLE FOR: 

SWAT 

SWAT 
LINES CODE 

LENGTH 

32000 - 32025 JU 

581 

32030 - 32130 DZ 

455 

32140 - 32170 KP 

293 
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Typing Got You Down? 



The Best of SoftSide contains over 
twenty programs for your Atari® — 
that’s one big typing job. You’ll 
spend hours at the keyboard, and face 
the inescapable fact of typographical 
errors. 


Wouldn’t you like to: 

• Avoid typing? 

• Use and enjoy these 
programs right 
away? 

• Avoid worry about 
typos? 



That's why we’ve prepared The Best of SoftSide Disk Version. That’s 


right — on four diskette sides, every single program in The Best of Soft 


Side . You just insert the disk into your disk drive, and leave the typing to 
us. All you have to do is use and enjoy The Best of SoftSide. 

If the form below is missing, send your name and address, along with 
$49 (check or money order), to: 


SoftSide Publications, Inc., 

Dept. BOSDV-AT, 6 South Street, Milford, NH 03055. 


Order with this form or facsimile. I 

Please send me the Atari® Best of SoftSide on Disk. | 

Credit card holders may call (603) 673-0585, and have your VISA or I 
MasterCard ready. I 

Name_ I 

Address_ a 

City_State_Zip_ | 

$49 to be paid by: □ Check □ M.O. □ VISA □ MasterCard I 

Name of Cardholder_ 1 

MC# and Interbank#/VISA# _ I 

Exp. Date ___ * 

Signature _ I 

Allow 4-6 weeks for delivery. - 

Price subject to change without notice. Atari® is the registered trademark of Warner Communications. H 
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READ THIS: 



There's more: 

• Reviews — of the software and hardware 
products you want to know about. 

• Articles — about all aspects of BASIC 
programming. 


If the high price of commercial software 
and the lack of clear information about 
your microcomputer has got you down, 
here's the solution you've been waiting for! 

SoftSide Magazine 

SoftSide is a favorite of computer 
users and hobbyists alike. They rely 
on it as a prime source of programs, 
reviews and articles for the Apple®, 
Atari®, TRS-80®, and IBM® PC 
microcomputers. SoftSide is the 
magazine for the microcomputer 
owner who wants to learn BASIC 
programming, learn MORE about 
BASIC programming, or just wants 
to have FUN! SoftSide gives you the 
BASIC code listings of several pro¬ 
grams — adventures, utilities, 
games, simulations, you name it — 
for your computer EVERY MONTH. 

Tutorials — on graphics, use of impor¬ 
tant commands, and more. 

Programs — each month SoftSide 
publishes a variety of programs for the 
Apple®, Atari®, TRS-80®, and IBM® PC. 


As you can see, you'll receive pages and pages of information and entertainment from 
SoftSide. Here's the best part: 

A subscription to SoftSide is just $30 a year. That's 12 issues for only $2.50 each! What a 
value! 

Use coupon to order. Mail to: SoftSide Publications, Inc., 6 South St., Milford, NH 03055 


D YES! Send me the first copy of my Soft- 
Side subscription right away! 


I own an □ Apple® □ Atari® 
□ TRS-80® □ IBM® PC 

Name _ 


Address_ 

City/State ^ 
Zip_ 


$30/yr for USA/Canada/APO & FPO only. 
For orders to Mexico — $46/yr. Other 
foreign orders — $68/yr. 

□ MasterCard □ VISA □ Check is enclosed 

Name of Cardholder _ 


MC#and lnterbank#/V!SA# . 

_Exp. Date. 

Signature_ 














5oft5i3e 

DV/MAGAZINE 

6 South Street, Milford NH 03055 



s<4SNM 




Use This Coupon or Facsimile to Order 
Make Check or M.O. payable to: 
SoftSide 
6 South Street 
Milford, NH 03055 



| City 


.State. 


I am sending: 

□ $149/yr for SoftSide Magazine Plus Disk 
Version 

□ $99/yr for SoftSide Magazine Plus 
Cassette Version 

(Prices for USA Only) 

Send me the □ Apple® □ Atari® □ TRS-00® Mod I 

□ TRS-00® Mod III □ IBM® PC (Disk Only) Version 

I am paying by: □ Check or M.O. □ MasterCard DVISA 

Name of Cardholder_ 


* Prices subject to change without notice. Apple®, IBM®, 
I Atari®, and TRS-80® are registered trademarks of The 

L " Apple Computer Company, IBM, Inc. Warner Communica¬ 
tions and The Tandy Corporation respectively. 


MC#/I nterbank#/VISA#. 


Signature 


.Exp. Date. 
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Disk Version Directory 


Program Name File Name 

Defense.......DEFENSE 

Quest..........QUEST 

Quest2,...... QUEST2 

Space Rescue. SPACERES 

Maze Search... MAZESRCH 

Minigolf. MINIGOLF 

Flip-lt .. ...FLIPIT 

Battlefield... BTLFLD 

Solitaire...... SOLITAIR 

Gambler. GAMBLER 

Operation Sabotage.OPSAB 

Leyte. LEYTE 

Titan .............TITAN 

Titan Part 2........TITAN 32K.PT2 

Word Search Puzzle Generator.. — ..... WDPUZGEN 

Fugue .. ..FUGUE 

Flight of the Bumblebee. BMBLBEE 

Melody Dice... MLDICE 

Music Programmer. MUSIPROG 

Character Generator... CHARGEN 

Random Access Database.. DATABASE 

Microtext 1.2 Word Processor .. MICROTXT 

SWAT. SWAT 


NOTES: 



























NOTES: 
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THE BEST OF 



• Become a fearless fighter on a Quest 
through a labyrinthine dungeon! 

• Become an admiral in the Battle of 

Leyte! 

• Spend a leisurely afternoon playing 

Solitaire. 

• Manage your information with Data 
Base. 

• Write letters with Microtext. 

• Much, much more...Utilities...Games... 
Adventures... 

For over four years, SoftSide, “Your BASIC 
Software Magazine,” has been bringing 
thousands of Apple®, Atari®, and TRS- 
80® users the best in BASIC entertainment 
software, as well as reviews and articles, 
all designed to help you get more out of 

your microcomputer. 

Now, from SoftSide’s past...we’ve selected 
the most useful...the most enter¬ 
taining...the most fun-filled programs 
we’ve ever published. The Best of SoftSide 
offers you many hours of fun and pro¬ 
grams of enduring value. 


SOFTSIDE PUBLICATIONS, INC. 

Milford, New Hampshire 


